1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Вариант 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 |