Get Cell Adress from value

[Faiek]

Hi,
I would like to search a sheet for a value inputed in a textbox and get the adress based on the value searched.

Thanks,

 

[mirabeau]

maybe this

Sub getaddress()
Dim cval, fnd
cval = Application.InputBox("Enter value for which you want the address")
Set fnd = ActiveSheet.Cells.Find(cval, after:=Cells(1), _
    LookIn:=xlValues, lookat:=xlPart)
If Not fnd Is Nothing Then
    MsgBox "Address of " & cval & " is " & fnd.Address
Else
    MsgBox cval & " not found on this worksheet"
End If
End Sub