Excel Макрос: Как проверить, выделены ли на листе 2 или более ячеек?

[Anton]

Подскажите пожалуйста, как определить с помощью макроса, что на листе выделено 2 или более ячеек?

[Администратор]

Sub Макрос()
    If Selection.Cells.CountLarge > 1 Then
        MsgBox "Выделено несколько ячеек.", vbInformation
    Else
        MsgBox "Выделена одна ячейка.", vbInformation
    End If
End Sub

PS. CountLarge появилось в "Excel 2007". Начиная с этой версии на листе очень много ячеек и прежнее свойство "Count" не работает, если макрос обращается к большому кол-ву ячеек.

[Anton]

То, что надо! Большое спасибо!