Private Sub CommandButton1_Click()
Dim Lost As Variant
Lost = 24789 'set Lost to whatever you want to look for
With Sheets(1).Range("A1:E65536") 'set the range you want to look through
Set c = .Find(Lost, LookIn:=xlValues)
End With
'the variable c is an address, so you can use c.Row and c.Column to get the row and column numbers
MsgBox ("Your data " & Lost & " was found in column " & c.Column)
End Sub