怎样使用VBA一个按钮执行两个不同程序？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub CommandButton1_Click()

    If Me.CommandButton1.Caption="删除" Then
      Call删除
    Else
      Call添加工作表
    End If
End Sub
Sub添加工作表()
    Dim sht As Worksheet
    For Each sht In Worksheets
      Me.ListBox1.AddItem sht.Name
    Next
    Me.CommandButton1.Caption="删除"
End Sub
Sub删除()
    Me.ListBox1.Clear
    Me.CommandButton1.Caption="添加工作表"
End Sub

5、单击 “删除”按钮，列表框中的数据全部清除，同时“删除”二字已修改为“添加工作表”，按扭在此时的功能是为列表框添加条目，如图