Максим, спасибо большое за подсказку. TypeName(Selection)="Series" работает как надо, возьму на заметку). А я тогда шел менее оптимальным путем:
Dim rez As Series
Set rez = Selection
Тут, когда выбрана не линия, возникает ошибка, которую отлавливал)
Dim rez As Series
Set rez = Selection
Тут, когда выбрана не линия, возникает ошибка, которую отлавливал)