Jacob

can you modify your code so if it does not find the number it will let me know?

Sub MyMarco()
Dim searchvalue
Dim c
Do
searchvalue = InputBox("What number do you want to search for? Enter Stop to quit")
With Range("A2:A2500")
Set c = .Find(What:=searchvalue, lookat:=xlWhole, LookIn:=xlValues)
If c Is Nothing Then
Else
Range(c.Address).Offset(0, 5).FormulaR1C1 = Date
End If
End With
Loop While searchvalue <> "Stop"
End Sub