excel 编译错误 缺少end sub

Question

我使用我录制了一个合并计算的宏，并把他的代码添加到控件按钮的代码中，结果一点击该控件按钮就提示“编译错误 缺少end sub”：
Private Sub CommandButton1_Click()
Sub Macro3()
'
' Macro3 Macro
' 宏由 微软用户 录制，时间: 2012-5-29
'

'
Range("G1").Select
Application.CutCopyMode = False
Selection.Consolidate Sources:= _
"'C:\Documents and Settings\Administrator\桌面\[新建 Microsoft Excel 工作表 (5).xls]Sheet1'!C4:C5" _
, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
Range("H5").Select
ActiveSheet.Shapes("CommandButton1").Select
End Sub

End Sub

Answer 1

Private Sub CommandButton1_Click()
Range("G1").Select
Application.CutCopyMode = False
Selection.Consolidate Sources:= _
"'C:\Documents and Settings\Administrator\桌面\[新建 Microsoft Excel 工作表 (5).xls]Sheet1'!C4:C5" _
, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
Range("H5").Select
ActiveSheet.Shapes("CommandButton1").Select
End Sub

再去试一试！！！

追问

为什么不帮我解释一下呢 谢谢

追答

Sub ……
和
End Sub
是成对的，且不能嵌套！