Here's an example that runs from a CommandButton, but you can use the code in any other macro.
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)
'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)