On Dec 18, 12:57*pm, "Mike Fogleman" wrote:
To further warn of non-contiguous or more than 1 column:

Sub message1()
If Selection.Areas.Count 1 Then
* * MsgBox "Selection is non-contigous"
* * Exit Sub
ElseIf Selection.Columns.Count 1 Then
* * MsgBox "More than 1 column selected"
* * Exit Sub
Else
* * MsgBox Selection.Count & " cells from " _
* * & Selection.Cells(1, 1).Address(False, False)
End If
End Sub

Mike F"Mike Fogleman" wrote in message

...



Patrick, suppose you started in A13 and selected upwards to A2, your code
would show A13 as the uppermost cell. Try this modification:

Sub message1()
MsgBox Selection.Count & " cells from " & Selection.Cells(1,
1).Address(False, False)
End Sub

Mike F
"Patrick Molloy" wrote in message
...

Sub message1()

MsgBox Selection.Count & " cells from " & ActiveCell.Address(False,
False)

End Sub

"andreashermle" wrote in message
....
Dear Experts:

I would like to have a macro that shows me ...

the number of selected cells in a column (contiguous range) and ...
the cell reference of the upper most cell selected.

Example: Range selected: A2:A13 (only selections in one column, no
selections spanning 2 or more columns)

The macro is to inform in a MsgBox as follows:

12 cells selected, starting in A2

Help is much appreciated. Thank you very much in advance.

Regards, Andreas- Hide quoted text -

- Show quoted text -

Dear Mike,

although all of your collegues' solutions fullfill my requirements
fully, yours is even a little bit more sophisticated. Great / terrific
help. Thank you very much . Regards, Andreas