Markro zum Ersetzen von Werten in einer Mappe

Als Anfänger habe ich folgendes Problen:
Ich will in einer Abeitsmappe (10 Sheets) in allen Zellen überprüfen ob ein Zeichenfolge "IST_KOST" vorhanden ist und diese ersetzen mit "local".

Mit dem Makro unten geht's bereits für ein Sheet.

Sub Ersetzen()
Dim Bereich As Range
Dim Zelle
Set Bereich = Range(ActiveSheet.UsedRange.Address)
For Each Zelle In Bereich
If Zelle.Text = "a" Then Range(Zelle.Address) = "B"
Next
End Sub

Danke für Eure Hilfe!

Norbert