XL: VB Procedure to Emulate Find Command

MORE INFORMATION

Sample Visual Basic Procedure

   Sub FindStrings()
       Dim firstCell, nextCell, stringToFind As String
       ' Show an input box and return the entry to a variable.
       stringToFind = _
           Application.InputBox("String to find?", "Search String")
       ' Set an object variable to evaluate the Find command.
       Set firstCell = Cells.Find(what:=stringToFind, lookat:=xlWhole, _
           searchdirection:=xlPrevious)
       ' If the string is not found, show this message box.
       If firstCell Is Nothing Then
           MsgBox "Search Value Not Found.", vbExclamation
       Else
           ' Otherwise, find the next occurrence of the search text.
           nextCell = _
               Cells.FindNext(after:=Range(firstCell.Address)).Address
           ' Show its address in a message box.
           MsgBox nextCell
           ' Continue finding the next occurrence as long as the address of
           ' the found cell is not the same as the first cell.
           Do While firstCell.Address <> nextCell
               nextCell = Cells.FindNext(after:=Range(nextCell)).Address
               MsgBox nextCell
           Loop
       End If
   End Sub