Sub retriever()
Dim r As Range
Dim s As String
s = ""
For Each r In Selection
s = s & " " & r.Address
Next
MsgBox (s)
End Sub
--
Gary's Student


"michael.beckinsale" wrote:

Hi All,

I have a situation where l need the user to select a multiple range of
cells in a single column by holding down the 'Ctrl' key and selecting
the cells. The cells are not likely to be contiginous.

Can anybody provide the code (or point me in the right direction) to
retrieve the cell addresses / rows once the selection has been made?

TIA

Regards

Michael Beckinsale