Sub Test()
     With ActiveSheet.Columns(3).Cells
          Set c = .Find()           

          If Not c Is Nothing Then
               'code for if the value is found
          End If
     End With
End Sub
Something like the above is a good start.
you could build a 1D array of the values you wish to find
and loop the .find method as you step through the arrays values