Here is the help example for the FIND method:

This example finds all cells in the range A1:A500 that contain the value 2
and makes those cells gray.

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

--
Regards,
Tom Ogilvy


"dee2417" wrote in
message ...

hi
I want to find some data in excel sheet and want to change the selected
data into a different color how to do it with a macro

Thanx in advance
dee


--
dee2417
------------------------------------------------------------------------
dee2417's Profile:
http://www.excelforum.com/member.php...o&userid=24587
View this thread: http://www.excelforum.com/showthread...hreadid=381794