This is untested, but should work, if the number is in column A.

Sub fndNbr()
lr = Cells(Rows.Count, 1).End(xlUp).Row
srchNbr = InputBox("Enter a number", "Number")
With ActiveSheet.Range("A2:A" & lr)
Set c = .Find(srchNbr, LookIn:xlValues)
If Not c Is Nothing Then
Range("A1") = c
End If
End With
End Sub

"Donald E" wrote:

I need a macro, with a in put box for a number and find the number in column
A .
bring number to the top of sheet.


Thanks , need need help

Donald E
PS E-mail me with the code