【已解决】下标越界 报错后点继续宏又正常运行

なつぞら

一长串代码中的其中一段报错，下文红字代码sht.Copy after:=Workbooks(WorkbookName).Worksheets(Sheets.Count)提示下标越界9，但是点击继续后，宏又能正常运行。百思不得其解，望各位大神答疑解惑。谢谢！


Dim wb As Workbook, fn As String, sht As Worksheet, shtName As String
  
  
  fn = Filepath & "\Latest Pipeline review template\Monthly package - " & RegionName & " 201904.xlsx"
  
  Set wb = GetObject(fn)

    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
   
      
   wb.Sheets("Dashboard").Activate
        
   wb.Sheets("Dashboard").Outline.ShowLevels ColumnLevels:=2
      
   Dim clm1%, clm2%
   clm1 = 13 + Sheets("20.SFC").Range("at2").Value
   clm2 = 14 + Sheets("20.SFC").Range("at2").Value
   Columns(clm1).Select
    Selection.Copy
    Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Columns(clm2).Select
    Application.CutCopyMode = False
    Selection.Columns.Ungroup
   
     Columns("C:D").Select
     Selection.Replace What:="=", Replacement:="aaa", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
    wb.Sheets("15.特价依赖度Big3").Outline.ShowLevels RowLevels:=2, ColumnLevels:=2
   
            
   For i = 1 To 19
   shtName = ThisWorkbook.Sheets("Macros").Cells(i, "o").Value
   For Each sht In wb.Worksheets
     If sht.Name = shtName Then
    sht.Copy after:=Workbooks(WorkbookName).Worksheets(Sheets.Count)
     End If
    Next sht
    Next i
    wb.Close False

なつぞら

人工置顶，求大神调试代码。谢谢！

なつぞら

人工置顶，求大神调试代码。谢谢！

なつぞら

人工置顶，求大神调试代码。谢谢！

なつぞら

人工置顶，求大神调试代码。谢谢！

なつぞら

人工置顶，求大神调试代码。谢谢！

xiangbaoan

after:=Workbooks(WorkbookName).Worksheets(Workbooks(WorkbookName).Sheets.Count)'加上试试

なつぞら

xiangbaoan 发表于 2019-6-14 10:23
after:=Workbooks(WorkbookName).Worksheets(Workbooks(WorkbookName).Sheets.Count)'加上试试

谢谢大神，问题解决了！