宏运行的问题

hjw123123

请问这个代码有问题吗？为何运行时，会退出 宏 对话框，谢谢！
Dim sht As Worksheet
       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆完毕!"
   End Sub

xiangbaoan

sub 什么什么的()
^^^^^^^
^^^^^^^
end sub

专搞excel

楼主需要在最开头增加一行  subxxx()，就可以了也就是说你现在的代码不是完整的加载宏