EXCEL VBA - определение саба или функции

Question

Как определить подпрограмму или функцию в VBA?

Это мой код:

Private Sub CommandButton1_Click()
    Call Send_Mail
End Sub

В рабочем листе «Лист1» у меня есть CommandButton с именем Send_Mail , а в «Листе 2» у меня также есть CommandButton. Когда я нажимаю CommandButton в Sheet2, я хочу, чтобы кнопка в Sheet1 работала.

В моем коде появляется: ошибка "Sub или Function не определены".

EDIT:

Код для Send_Mail:

Public Sub Send_Mail_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim nameList As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error GoTo cleanup

    For i = 4 To 22                                                                         
        If Range("B4").Value <> "" Then                                                        
            nameList = nameList & ";" & Range("C" & i).Value
        End If
    Next
        With OutMail
            .To = nameList
            .Subject = "Subject Line"
            .Body = "Body Text"
            .Send
        End With
cleanup:
    Set OutApp = Nothing
    MsgBox "E-Mail sent."
    MsgBox Err.Description
End Sub

Answer 1

Я не знаю, как была названа основная подпроцедура, прикрепленная к кнопке Sheet1, но, скорее всего, она имеет похожее имя.

'Sheet2's button sub procedure
Private Sub CommandButton1_Click()
    Call Sheet1.CommandButton1_Click
End Sub