условие - выделенное не фигура

[Bape}l{ka]

доброе утро всем))

подскажите пожалуйста, можно ли задать условие, что выделенный объект - фигура / не фигура без перебора в цикле?
типа:

If Not .Selection(Shapes) Then ...

или

If Shapes=False Then ...

или условие, что выделение - ячейка (не фигура)

[EducatedFool]

Sub test()
    If TypeName(Selection) = "Range" Then
        MsgBox "Выделен диапазон"
    Else
        MsgBox "Выделена фигура, или что-то подобное"
    End If
End Sub

Sub test()
    Debug.Print TypeOf Selection Is Range
    Debug.Print TypeOf Selection Is Shape
    Debug.Print TypeOf Selection Is Rectangle
End Sub

[Казанский]

Или так

dim s as shape
on error resume next
set s=selection
if err then msgbox "выделена не фигура": exit sub
' работа с s

[Bape}l{ka]

все оказывается легко)) спасибо