Excel søg og erstat på alle ark

Hej,

Jeg ville gerne søge på f. eks. "for", og erstatte cellen to gange til højre for denne med en anden celle.

Jeg har fundet frem til følgende kode:

Sub SoegOgErstat()
'
' Makro4 Makro
'
' Genvejstast: Ctrl+Skift+C
'
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
            Cells.Find(What:="For", After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False).Activate
            ActiveCell.Offset(0, 3).Select
            ActiveCell.FormulaR1C1 = "=RC[2]"
    Next ws
End Sub

Funktion virker på det givne ark, men jeg ville gerne have den til at gøre det på alle ark.

Udover dette kan det nævne at teksten "for" kun forekommer én gang på hvert ark.

På forhånd tak!