With Worksheets(1).Range("A1:A500") Set c = .Find(2, LookIn:=xlValues) If Not c Is Nothing Then firstaddress = c.Address Do ' whatever you need to do, then Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While c.Address <> firstaddress End If End With