Я получаю сообщение «Ошибка времени выполнения 91»: переменная объекта или переменная блока не установлена »в следующем коде, и кажется, что я не могу понять, что не так.
Я установил следующие переменные:
Dim EngineAncillariesProjectsVBAList As Range
Dim EngineAncillariesProjectsLastRow As Long
Dim ProjectList As Range
которые определяются как:
EngineAncillariesProjectsLastRow = Worksheets("VBA_Data").Cells(Rows.Count, 8).End(xlUp).Row
Set EngineAncillariesProjectsVBAList = Worksheets("VBA_Data").Range("H2:H" & EngineAncillariesProjectsLastRow)
Ошибка наступает на следующем этапе, см. Ниже. В Debug говорится, что ProjectList = Nothing
If ActiveSheet.Name = "Engine Ancillaries" Then ProjectList = EngineAncillariesProjectsVBAList