Как определить что выделено (Строка, Столбец или ячейка)?

[RISagitov]

я знаю, что строку в range("AP:AP") можно разбирать с помощью конструкций instr, mid, ..

но наверное есть признак в свойствах, который указывает однозначно

[EducatedFool]

Dim ra As Range: Set ra = Range("какой-то диапазон")

Select Case ra.Address
    Case Cells.Address
        MsgBox "выделен лист целиком"
    Case ra.EntireColumn.Address
        MsgBox "выделены столбцы целиком"
    Case ra.EntireRow.Address
        MsgBox "выделены строки целиком"
    Case Else
        MsgBox "выделен диапазон ячеек"
End Select

[RISagitov]

thx
огромное