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