Hvorfor looper den ikke igennem denne kode?

koden virker kun på det ark som indeholder 123
Den skal lede alle ark igennem efter 123???

Sub Lace3310_OG_Frem()
Dim ark As String

I = 1
Ok = False
  For Each ws In Worksheets
  If ws.Name <> "Menu" Then
   
With Worksheets(ws.Name).Range("a1:G500")
    Set c = .Find("123", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.Pattern = xlPatternGray50
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

    End If
    Next ws


End Sub

Jeg har lavet lidt om på den.
("Menu") = hovedarket som ikke skal gennemsøges
der farver den fundne celle grå
Den kikker i alle ark fra A1 til G500

Kanon TAK.

Jeg fandt ellers selv en løsning. Jeg ved nemlig hvilken celle der skal ledes i.

Sub Lace3310_OG_Frem()

Sheets("Sheet1").Select

I = 1
Ok = False
  For Each ws In Worksheets
  If ws.Name = ActiveSheet.Name Then
    Ok = True
  End If
  If Ok = True Then
      Sheets(ws.Name).Select
     
      If Range("A1") = "" Then
      'MsgBox "Cellen er tom"
      Else
      MsgBox "dette er den rigtige ark"
      Exit Sub
     
     
      End If
   
    End If
    Next ws
   
Sheets("Sheet1").Select
End Sub

Men tak skal du have :-)