Why not? Modified from Help. I added the for each sh loop

Sub findnumbersinallworksheets()
For Each sh In Worksheets
With sh.Cells
Set c = .Find(54789, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do

c.Offset(, 1) = "005"
c.Offset(, 1).NumberFormat = "000"

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With
Next sh
End Sub

--
Don Guillett
SalesAid Software

"DNA" wrote in message
lkaboutsoftware.com...
It doesn't appear that FINDNEXT would be the choice I should use.

I want one macro that searches all worksheets, and if it finds a part
number of 54789, then put employee number 005 in the column directly
beside the part number. This way when one value is entered, it populates
the entire workbook.

Hope this makes sense.