Обычно вам не нужно Select
или работать с Selection
, но если вы ищете, является ли Selection
смежными ячейками или имеет несколько областей, то может быть так:
Sub Test()
If TypeOf Selection Is Excel.Range Then
MsgBox Selection.Areas.Count = 1
End If
End Sub