Можно ли узнать адреса всех ячеек,если ты выделяешь диапазон

[Павел_В]

Когда пользуешься

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Target.Address
End Sub

То возвращается диапазон выделенных ячеек, а мне необходимо адреса всех выделенных ячеек в виде какого нибудь массива, может кто знает как это сделать????

[GSerg]

for each c in target.cells

[Павел_В]

сенкс

[Booozer]

А можно и посложней:
For i = Target.Row To Target.Row + Target.Rows.Count
For j = Target.Column To Target.Column + Target.Columns.Count
MsgBox Target(i, j).Address
Next j
Next i