求VBA代码，选中两个或两个以上单元格时，对话框显示它们的和。

试编写代码如下：

Private Sub CommandButton1_Click()
    If Selection.Count > 0 Then
        If Selection.Count = 1 Then
            MsgBox "当前选中单元格：" & Selection.Address() & "，值为：" & Selection.Value
        Else
            MsgBox "当前选中了" & Selection.Count & "个单元格，其和为：" & Application.WorksheetFunction.Sum(Selection)
        End If
    End If
End Sub

运行截图：

选择1个单元格：

选择多个单元格：

追问

老师您好！VBA我刚刚接触，您这个程序是要插入按钮吗？我插入按钮后怎么无法指定这个程序呀？我用的是WPS，望老师解惑！

老师我插入控件了，单击它，没反应，双击显示您写的程序代码，您写的代码没有任何问题，在调试模式下运行是非常成功的，我现在就是不知道这个按钮怎么设置？

老师，我弄好了！谢谢您！
您能不能在工作表事件，帮我写个代码，选择指定单元格，即触发程序。不过已经非常感谢了

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3fvvvfx2j37x73yjey.html