Excel VBA: Ошибка выполнения 424, требуется объект

Question

Я не могу понять эту проблему. Раньше у меня была аналогичная проблема, оказалось, что я использовал диапазон одной ячейки, который был избыточным. Но в этом случае мне нужен End (xlDown), и я не могу заставить его работать. Я попробовал несколько комбинаций, и я не могу понять правильный синтаксис. Помогите?

Public Exceptions As Range 
Public Xcept As Range 

Sub Example() 
Static ExcSh As Worksheet 
Set ExcSh = Worksheets("ComboExceptions") 
Set Exceptions = ExcSh.Range("A2") 

Set Xcept = ExcSh.Range(Exceptions.Offset(1).Cells, Exceptions.Offset(1).Cells.End(xlDown)) 
'This is where the error happens^
End Sub 

Answer 1

Решено! Я объявил

Static ExcSh As Worksheet 

в другом Sub, что делает его недоступным для функции, которая была ошибочной. Я сделал это публичное и теперь следующая команда работает отлично:

Set Xcept = ExcSh.Range(Exceptions.Offset(1), Exceptions.Offset(1).End(xlDown))