makro til søg og erstat

Sub Søg_Erstat()
    Dim WS As Worksheet, Søg As String, Erstat As String
    Søg = InputBox(" Find hvad", "SØG")
        Erstat = InputBox(" Erstat med", "ERSTAT")
    For Each WS In ActiveWorkbook.Sheets
    WS.Select
      Cells.Select
        Selection.Replace What:=Søg, Replacement:=Erstat, LookAt:=xlPart, _
                          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                          ReplaceFormat:=False
    Next
End Sub

den retter det fint på ark 1 men kommer så med en fejl - runtime error 1004

Jeg vil vædde med at du har sat koden ind et forkert sted.

Tryk ALT +F11

vælg insert > Module, det er der koden skal være

Du kan også have beskyttelse på et ark

jo da, vist havde jeg det.

Læg et svar til afregning.

Takker.

Et svar ;-))