Problemer med søg og erstat makro

Jeg har fundet følgende løsning på et søg og erstatproblem jeg har med et regneark. (http://www.eksperten.dk/spm/843641)
Jeg har samme problem som beskrevet i denne tråd, men jeg kan ikke få nakroen til at virke.

Hvis jeg skal ha erstattet flere tekststrenge har jeg lavet følgende kode:
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

    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, _

End Sub

--> Denne løsning fejler ved "Dim WS As Worksheet"



Hvis jeg alene laver en erstatning, så kommer der bare en komando-boks op?
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