EXCEL合并工作表时提示“应用程序定义或对象定义错误1004”

我使用的代码如下：
*合并当前工作簿下的所有工作表*

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

请问应该怎么修改？ 谢谢！

可以如下方式解决：
1、当按F5键，就报：运行时错误1004。可以这样操作，单击文件――选项――信任中心――打开“信任中心”对话框，宏设置――勾选“信任对VBA工程对象模型的访问”。再次运行，就不会出现运行时错误1004提示。

2、再在搜索引擎查询，才知道运行时错误1004不只是在上面这种情况才会有提示。比如通过使用 Visual Basic 对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel vba输入公式出现运行时错误1004的原因：当试图将传递一个包含超过 255 个字符的公式时，会发生此问题，并为应用程序中 Visual Basic 中使用 FormulaArray 属性。

程序没有错，是不是你的工作簿里面有的表是图表，合并图表的时候导致报错。解决方法是把程序里面所有的Sheets（独立单词）替换为WorkSheets

已经存在了一个名字是：工具栏1 的toolbar，再次添加就会造成冲突了。 在toolbars.add 的前面加一句：on error resume next，就不会提示出错了。