|The Excel 2010 Help files left out this example, but it can be found in Excel 2003 and earlier.|
It's a shame that 2007 and later do not include this powerful example of how to use .Find in VBA.
Replace the instructions within the Do-Loop with the instructions that you need.
This example finds all cells in the range A1:A500 on worksheet one
that contain the value 2 and changes it to 5.
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.