Cell Echo Help Required
 

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.

Cell Echo Help Required
 

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


On Wed, 28 Jul 2004 20:19:05 -0700, "Dave_D"
wrote:

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.