Option Explicit
Private Sub CommandButton1_Click()
    With CommandButton1
        If .Caption = "宏1" Then
            Call 宏1
            .Caption = "宏2"
            Exit Sub
        End If
        If .Caption = "宏2" Then
            Call 宏2
            .Caption = "宏3"
            Exit Sub
        End If
        If .Caption = "宏3" Then
            Call 宏3
            .Caption = "宏1"
            Exit Sub
        End If
    End With
End Sub

Option Explicit
Private Sub CommandButton1_Click()
    With CommandButton1
        If .Caption = "宏1" Then
            Call 宏1
            .Caption = "宏2"
            Exit Sub
        End If
        If .Caption = "宏2" Then
            Call 宏2
            .Caption = "宏3"
            Exit Sub
        End If
        If .Caption = "宏3" Then
            Call 宏3
            .Caption = "宏1"
            Exit Sub
        End If
    End With
End Sub