hi all,

trying to lookup a value in an array (using FIND) and if the value is
found, the location (Row and Column) of the found value to be
reported.

example=
A1: 3
A2: 4
A3: 5
A4: 6
A5: 7

this is where i am up to=
Sub findLocation()
Dim r As Range
If Not Worksheets("Sheet1").Range("A:A").Find(what:="5", _
LookIn:=xlValues, _
lookat:=xlWhole) Is Nothing Then

Set r = Worksheets("Sheet1"). _
Cells(Worksheets("Sheet1"). _
Range("A:A"). _
Find(what:="5", _
LookIn:=xlValues, _
lookat:=xlWhole).Row, "A")
End If
End Sub

the result that i receive=

r = 5 (but i would like to receive A3 (or$A$3))

any help is mostly appreciated and i thank you in advance for your
time.

cheers....


.....jurgenC!