Private Sub Find_Criteria() Dim i Dim r r = Range("A65536").End(xlUp).Row i = 1 For i = i To r If Range("A" & i) = "criteria" Then MsgBox "Found" & " " & Range("A" & i).Address End If Next i End Sub If you are looking for certain criteria in a range of cells, then try something like this. Private Sub Find_Criteria() Dim i As Variant Dim FindRange As Range Set FindRange = Range("A1:K50") For Each i In FindRange If i = "criteria" Then MsgBox "Found" & " " & i.Address End If Next i End Sub
DON'T MISS