Better in that it is looking for whole numbers

Sub findwholenumbersinworkbook()
lr = Cells(Rows.Count, "a").End(xlUp).Row
For Each c In Range("a1:a" & lr)
For Each ws In Worksheets
If ws.Name < "Sheet3" Then
Set fc = ws.Cells.Find(c, lookat:=xlWhole)
If Not fc Is Nothing Then c.Offset(, 1) = "Yes"
End If
Next ws
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"puiuluipui" wrote in message
...
Hi, i need to find duplicates in all sheets and result to be, "yes" or
"no".
In "C" column i have numbers, and in "D" column i need the code for
duplicates.
If any number from "C" column is find in any sheet, the code to display in
"D", "yes" or "no".

Ex
C D
123 yes
321 no

Can this be done?
Thanks!