Определить является ли выделенный объект ячейкой/диапазоном — Visual Basic(Бейсик)

Вариант I.

If TypeOf Selection Is Range Then 
   MsgBox "Выделен именно об'ект ""Range""" 
Else 
   MsgBox "Выделен : " & TypeName(Selection) 
End If

Вариант II.

 
If TypeName(Selection) = "Range" Then 
   MsgBox "Выделен именно об'ект ""Range""" 
Else 
   MsgBox "Выделен : " & TypeName(Selection) 
End If