Как получить адреса всех выделенных ячеек?

[yurist]

Как получить в макросе (excel) адреса всех выделенных ячеек? За ранее спасибо

[corgi]

Код: Выделить всё

Sub dd()
Dim i As Integer, j As Integer, row1 As Integer
Range("A1,C4,H8:I9,E16,B15:C15,J15:J16,J21,O8,J15,H17,G11,E8,H5,K9").Select
For i = 1 To Selection.Areas.Count
    For j = 1 To Selection.Areas.Item(i).Count
        MsgBox CStr("row = " & Selection.Areas.Item(i).Item(j).Row & ", column = " & Selection.Areas.Item(i).Item(j).Column)
    Next
Next
End Sub