Public Sub LoopCells()
Dim c As Range
For Each c In Range("A1:A10")
    If c.Value = "FindMe" Then
      MsgBox "FindMe found at " & c.Address
    End If
Next c
End Sub  Public Sub LoopColumn()
Dim c As Range
For Each c In Range("A:A")
    If c.Value = "FindMe" Then
      MsgBox "FindMe found at " & c.Address
    End If
Next c
End Sub 
      
      
      
No comments:
Post a Comment