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