如何使用Excel中的另一个按钮调用另一个工作表中的按钮？

我在Sheet1中有一个命令按钮，我想使用Sheet2中的按钮（表单控件）激活它

我已经写过Module1（与表单1中的命令按钮几乎相同的代码）

我已经写了模块2（表单控制按钮代码见第2页）：

然而，我得到了

“运行时错误“1004”：选择范围类的方法失败”

是否有任何方法可以调用Sheet1上的命令按钮或将其链接到Sheet2上的表单控制按钮？

在Sheet1中

Public Sub ClickMe()
   MsgBox "You Clicked"
End Sub

在Sheet2命令按钮中，单击代码

Private Sub CommandButton1_Click()
   Sheets("Sheet1").ClickMe
End Sub

---

将例程公开使其可以从工作表外部调用

一个更好的选择是，您不需要这样做。但是如果我删除Select，它也会出现错误。错误消息是什么，在哪一行？

Sheet1.Range("A8:" & TotalCellx & "100").Select
Selection.Sort Key1:=Range(TotalCellx & "9"), Order1:=xlDescending, Header:=xlGuess _
    , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin
Sheet1.Range("C9").Select
End Function

Sub Command1_Click()
Sheet1.Range("C8:GF8").Value = Sheet1.Range("C240:GF240").Value
Sheet1.Range("B7").Value = Sheet1.Range("B240").Value
r = DataUpdate()
End Sub

Public Sub ClickMe()
   MsgBox "You Clicked"
End Sub

Private Sub CommandButton1_Click()
   Sheets("Sheet1").ClickMe
End Sub