With Application.Workbooks(1).Worksheets(1).Cells
Set c = .Find(code, Cells(1, 1), xlValues, xlWhole) 'поехали
If Not c Is Nothing Then        'если ничего не нашли
Do
c.Value = 666       'делаем, что хотим
Set c = .FindNext(c)        'продолжим
Loop While Not c Is Nothing     'цикл поиска
End If
End With