Glad it worked. Thanks for the feedback!
Mike F
"Eubanks" wrote in message
...
Mike,

Most Excellent!!! Thanks! I decided to use a ComboBox instead of a
ListBox so I had to modify the code slightly to work with its properties
(RowSource vs ListFillRange).

Thanks again for getting me off high center.
Ken

"Mike Fogleman" wrote in message
m...
This seems to work for me:

Private Sub ListBox1_Change()
Dim rng As Range
Dim LstAdr As String
Set rng = Range(ListBox1.ListFillRange)
LstAdr = Cells(WorksheetFunction.Index(rng, ListBox1.ListIndex + 1).Row,
_
Range(ListBox1.ListFillRange).Column).Address
Range("A1").Value = LstAdr
End Sub


Mike F
"Eubanks" wrote in message
...
Hello,

I need some help in finding a specific cell address for a selection
from a ListBox. For example, if the ListBox.RowSource = D15:D25, and
the third item in the list was selected (ListIndex = 2) the cell address
D17 is returned. I have fumbled around with relative positioning and
have accomplished nothing but confusion.

Any help or direction to look would be greatly appreciated.

Thanks,
Ken