错误424，要求对象，不知道错在哪里，哪位大神解答下，谢谢

叶惠根

Dim wb As Workbook
Application.DisplayAlerts = False
1.
Workbooks.Open (ThisWorkbook.Path & "\拆分\报表净利汇总-报表口径-按区域分.xlsx")
Set wb = ActiveWorkbook
ThisWorkbook.Worksheets(3).Copy(after:=wb.Sheets(wb.Sheets.Count)).Name = ThisWorkbook.Worksheets(2).[a1].Value & "月"
ThisWorkbook.Worksheets(7).Copy(after:=wb.Sheets(wb.Sheets.Count)).Name = ThisWorkbook.Worksheets(2).[a1].Value & "月累计"
wb.Close
2.
Workbooks.Open (ThisWorkbook.Path & "\拆分\报表净利汇总-报表口径.xlsx")
Set wb = ActiveWorkbook
ThisWorkbook.Worksheets(2).Copy after:=wb.Sheets(wb.Sheets.Count)
wb.Sheets(wb.Sheets.Count).Name = ThisWorkbook.Worksheets(2).[a1].Value & "月"
ThisWorkbook.Worksheets(6).Copy after:=wb.Sheets(wb.Sheets.Count)
wb.Sheets(wb.Sheets.Count).Name = ThisWorkbook.Worksheets(2).[a1].Value & "月累计"
wb.Close
运行第一种的会出错误424，要求对象，改成第二种就没有问题，不懂是为什么

maditate

单步运行，检查一下出错在哪句，再枪柄一下对象是否存在。