Returning the row  and column number  is easy.

There are several ways to "find" what you're looking for.
The best way depends on what it is you're trying to find.
Are you looking for a word  within a string?
a number within a string?
Or do you want to know all cells that are EQUAL to your designated string?
That is: If you're looking for "Jack", do you want ONLY cells that contain
"Jack", or do you want to include "Jacks", "Jackson", "Billy Jack", "Yukon
Jack",
"Cactus Jack", "Kojack" ??

Try this:

Sub test()
Dim FirstAddress, c As Range
With Worksheets(1).Range("a1:a500") 'Searches Column A, rows 1-500
Set c = .Find("2", LookIn:=xlValues, Lookat:=xlWhole) '(looks for
"2")
If Not c Is Nothing Then
FirstAddress = c.Address
Do
MsgBox c.Address & ": " & c.Value & " Row: " & c.Row & "
Col: " & c.Column
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With

End Sub