Suchen und Erstezen in Zelle

Sub Suchen_Ersetzen_1()
Dim s_Suchen As String
Dim s_Ersetz As String
s_Suchen = InputBox("Geben Sie den Suchbegriff ein!")   'default soll Punkt sein
s_Ersetz = InputBox("Geben Sie den Ersetzbegriff ein!") 'default soll Semikolon sein
'Cells.Replace What:=s_Suchen, Replacement:=s_Ersetz, _
'LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
'SearchFormat:=False, ReplaceFormat:=False
'ACTIVECELLS
Cells.Replace What:=s_Suchen, Replacement:=s_Ersetz, _
LookAt:=ACTIVECELLS, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub

Dank und Gruss
Mehmet