Still doesn't sound terribly helpful, but try this:
Sub Macro1()
Dim r As Range, f As String
Application.FindFormat.Font.ColorIndex = 2
With ActiveSheet.UsedRange
Set r = .Cells.Find(What:="platform", after:=.Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, searchformat:=True)
If Not r Is Nothing Then
f = r.Address
Do
r.Select
MsgBox "Found at " & r.Address
Set r = .Find(What:="platform", after:=r, searchformat:=True)
Loop While r.Address <> f
End If
End With
End Sub
Bookmarks