Cell Echo Help Required

[Dave_D]

I previously sent this to the wrong newsgroup.

Is there a VBA routine that will echo back the cell
location based on the value in another cell ? For
example, consider the following

A B C D
1 101 110.5
2 102
3 103.9
4 104
5 110.5
6 121

I'm looking for the cell location for the value (110.5)
contained in cell C1 and place the returned location (A5)
in cell D1.

 

[Myrna Larson]

Sub Test()
Dim R As Variant
Dim Rng As Range
Set Rng = Range("A1:A100")
R = Application.Match(Range("C1").Value, Rng, 0)
If IsNumeric(R) Then
Range("D1").Value = Rng.Cells(R).Address
End If
End Sub