VBA错误424对象未find，但我有对象
我对VBA相当陌生，但学习速度很快。 我有这个名为AddRoute55的用户表单和一个CommandButton在我的表中激活它。
CommandButton后面的代码是：
Private Sub Route55Button_Click() AddRoute55.Show End Sub 其中userformcode是：
Private Sub UserForm_Initialize() 'Empty Status StatusBox.Clear 'Fill StatusBox With StatusBox .AddItem "Received" .AddItem "Returned to PM" .AddItem "In Progress" .AddItem "On Hold" .AddItem "Complete" .AddItem "Closed" .AddItem "RFC" End With 'Empty BTBox BTBox.Clear 'Fill BTBox With BTBox .AddItem "Run" .AddItem "Change" End With 'Empty DomainBox DomainBox.Clear 'Fill DomainBox With DomainBox .AddItem "AMS NL" .AddItem "AMS INT" .AddItem "EUS" .AddItem "IPS" .AddItem "NGC" .AddItem "Office" .AddItem "SM" End With 'Empty AIMSBox AIMSBox.Value = "" 'Empty ProjectCoedeBox ProjectCodeBox.Value = "" 'Empty PMBox PMBox.Value = "" 'Empty POBox POBox.Value = "" 'Empty VendorBox VendorBox.Value = "" 'Set No FTR as default FTRButton2.Value = True 'Empty OrderReceivedBox OrderReceivedBox.Value = "" 'Empty OrderProcessedBox OrderProcessedBox.Value = "" 'Empty SSDMBox SSDMBox.Value = "" 'Empty P2PBox P2PBox.Value = "" 'Empty CustomerBox CustomerBox.Value = "" 'Empty PMABox PMABox.Value = "" 'Empty SPBox SPBox.Value = "" End Sub
用户窗体本身在属性中被称为AddRoute55。 但是当我按下命令button，我看到错误424，找不到对象，它指向AddRoute55.Show的行。 我究竟做错了什么？ 提前致谢！
你确定，这是名字而不是标题？
如果你的代码不起作用，试试这个：
Private Sub Route55Button_Click() UserForm1.Show End Sub
您可以通过右键单击devise模式下VBA编辑器中的用户窗体来更改用户窗体的name 。