VBA ОШИБКА: предметная переменная или переменная блока не установлена ​​ошибка

Question

Vba: переменная объекта или переменная блока не установлен

Я понятия не имею, что только что произошло! Пожалуйста помоги. Вот мой код!

If intMsgBox = vbYes Then 
Unload frmNewOrder // error here 
Unload Main_Menu //error here 
ActiveSheet.PrintPreview 
wkbNewOrder.Worksheets("New Order").Select 
wkbNewOrder.Worksheets("New Order").Delete 
wkbNewOrder.Worksheets("Main Menu").Select 
End If 

Answer 1

As explained in the documentation, ни Main_Menu, ни frmNewOrder были установлены.

Снимок экрана с ссылкой. В случае, если вышеуказанное звено замирает.

Answer 2

Похоже, вы объявили frmNewOrder в качестве переменной, но вы не установили его и ваш код выглядит следующим образом:

Dim MyForm As UserForm1 
Unload MyForm 

Но это должно быть вместо этого:

Dim MyForm As UserForm 
Set MyForm = UserForm1 
Unload MyForm