424运行时错误

我对VBA相当陌生 – 自从上个星期以来一直在学习,我想回顾一下我的发现,我知道这是你会遇到的最愚蠢的事情。

我不断收到这个错误:

运行时错误“424”:
所需对象

这是代码和错误消息:

Sub Button1_Open() Button1.OnClick MsgBox("Tester") End Sub 

任何帮助? 我知道这将是非常愚蠢的。 我已经尝试添加Set但也没有工作。

将方法名称从“打开”更改为“点击” ,如下所示:

 Sub Button1_Click() MsgBox("Tester") End Sub