This is a modification of the sample in VBA help index for FINDNEXT

Sub findallandmark()
With ActiveSheet.Cells
On Error GoTo quitit
Set c = .Find(range("a1"), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do

c.Value = "X"

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
quitit:
End With


--
Don Guillett
SalesAid Software

"Alex M." wrote in message
...
I am in a number draw based on the lottery. Each member has 10 numbers and
there are just over 400 members. I would like to try and set up a
spreadsheet
wherby I can enter a number in cell A1 and all cells which contain that
number change to an X. Can it be done ?. Thanking you in anticipation.