Как программно определить выделенные ячейки?

[RISagitov]

если с помощью ctrl, мышью, в рабочем листе, выделены некоторые ячейки (не смежные)

то в коде

sub main()
with selection
.......
.......


end with


end sub


как определить эти ячейки?
-их количество
-их координаты

[EducatedFool]

Sub test()
    Dim ra As Range, ar As Range, n&
    Set ra = Selection

    MsgBox "Выделенный диапазон содержит отдельных областей: " & ra.Areas.Count

    For Each ar In ra.Areas
        n = n + 1: MsgBox "Поддиапазон " & ar.Address, , "Область " & n & " из " & ra.Areas.Count
    Next
End Sub

[RISagitov]

спасибо огромное

[IgorGO]

Sub CC()
    Dim rg, n, i
    Set rg = Selection
    For i = 1 To rg.Areas.Count
      n = n + rg.Areas(i).Cells.Count
    Next
    MsgBox "Количество: " & n & Chr(10) & "Координаты:" & Chr(10) & Replace(rg.Address, ",", Chr(10))
End Sub

[RISagitov]

спасибо большое