Добрый день!
Определяются координаты левого верхнего и правого нижнего углов прямоугольника,
накрывающего области выделения.
Sub test1()
Dim first_row As Long, first_column As Long
Dim last_row As Long, last_column As Long
first_row = Rows.Count: first_column = Columns.Count
last_row = 1: last_column = 1
For Each sArea In Selection.Areas
If first_row > sArea.Row Then first_row = sArea.Row
If first_column > sArea.Column Then first_column = sArea.Column
If last_row < sArea.Rows(sArea.Rows.Count).Row Then _
last_row = sArea.Rows(sArea.Rows.Count).Row
If last_column < sArea.Columns(sArea.Columns.Count).Column Then _
last_column = sArea.Columns(sArea.Columns.Count).Column
Next
MsgBox "first row=" & first_row
MsgBox "first column=" & first_column
MsgBox "last row=" & last_row
MsgBox "last column=" & last_column
End Sub
С уважением, Сергей Густокашин. Тольятти, Комсофт. ICQ 75307217