VBA&Excel: Помогите с выделением ячеек.

[Sex]

Я имею некоторую область выделения (мульти-зону = multi area selection)
Она покрывает 3 из 5 столбцов некоторых строк.
Т.е. если * - выбранная ячейка, а _ - невыделенная, то есть таблица

_ _ _ _ _
_ * _ * *
_ _ _ _ _
_ * _ * *
_ _ _ _ _

Теперь же нужно сделать так, чтобы выделение распространилось на всю строку (если там есть выделение).

Т.е. из вышеприведенной таблицы должно получиться:
_ _ _ _ _
* * * * *
_ _ _ _ _
* * * * *
_ _ _ _ _

Спасибо за помощь

[Naeel Maqsudov]

Лехко!

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

Sub ExpandSelectedRows()
Dim R As Range, s As String
  s = ""
  For Each R In Selection.Areas
    s = s & "," & R.EntireRow.Address(False, False)
  Next
  s = Mid(s, 2)
  Range(s).Select
End Sub