Форум по VBA и MS Office

Подскажите пожалуйста, как проверить, выделены ли хоть какие ячейки на листе или нет?
Хотел, по аналогии из макросов для Word взять, но не тут-то было.

Sub Макрос()
    If TypeName(Selection) = "Range" Then
        MsgBox "Выделена одни или несколько эксель-ячеек.", vbInformation
    Else
        MsgBox "Выделено что-то другое.", vbExclamation
    End If
End Sub

спасибо