抄的代码保存在个人宏后,不好使用.请路过兄弟帮忙看看.

Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
这是一段多工作簿和成一簿多表的代码.
单独用是可以的.
放在个人宏模块里后,在personal,xlsb工作簿里也能用.
但在其他工作簿或新建工作簿里使用就会报错.报错图在下面.
请路过的兄弟帮个忙,
怎么让这段或其他类似代码(抄的代码)保存的个人宏后,可以在其他任何打开的工作簿里都能正常使用.