excel 编译错误 缺少end sub

我使用我录制了一个合并计算的宏，并把他的代码添加到控件按钮的代码中，结果一点击该控件按钮就提示“编译错误 缺少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

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

再去试一试！！！

private sub xx_workbookopen(byval wb as workbook) ... ... end sub