Guten Tag

Kann man mit einem Makro in einem Tabellenblatt den Bereich B4:H20 oder die gesamten Spalten A:H in den bestehenden Formeln den Inhalt "Hallo" mit "Tag" ersetzten?

z.B. Formel in Zelle B4 =(Hallo!AB10) mit Click auf Button neu =(Tag!AB10)

Sub ChangeToTag()

ActiveSheet.Cells.Find What:="Hallo"
Columns("B:H").Replace What:="Hallo", Replacement:="Tag", LooAt:=xlPart

End Sub
 

Dies geht leider nicht, was muss ich ändern?

Freue mich auf eure Antwort.

Gruss

ch79