Kan ikke få et loop til at virke!

Hej'sa

Håber der er nogen der kan hjælpe mig med nedenstående kode.
Jeg er helt ny i VBA og kan ikke helt gennemskue hvorfor koden ikke vil loope gennem alle ark i min excel fil.

Opgaven er flg.

På "forsiden" skal søg og erstat funktionen hente den værdi der skal søges og den værdi der skal erstattes. forsiden bruges som en slags logbog over rettelser på de øvrige ark, der må derfor ikke søges og erstattes på den side.

Der er 17 ark der skal gennemgås, tælleren virke godt nok!


Bonus spørgsmål:

Kan man få "highligtet" den værdi der er erstattet på alle ark med en farve?


Public Sub Søg_og_erstat()


Dim ws As Worksheet
Dim ws_count As Integer
Dim I As Integer

ws_count = ActiveWorkbook.Worksheets.Count

For I = 2 To ws_count

Cells.Replace What:=Sheets("forside").Range("b2"), Replacement:=Sheets("forside").Range("c2"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False

Next I


End Sub


På forhånd tak for jeres hjælp!