Help, need a looped Find command

[tonyBruckner]

How do I Find all instances of a search term that consecutively appears in several places in one column?

something like:

Range ("A1").select
Do While {instances are still to be found}
Cells.Find(What:="searchTerm", After:=ActiveCell, etc etc).Activate
ActiveCell.Offset(0,1).FormulaR1C1 = "found" 'perform a task on each consecutive instance
Loop
Range ("A1").select
End Sub

 

[VoG]

Take a look at the Help for FindNext - there is a good example.