Excel .Move after:

[thegameoflife]

What needs to be done here to make it work??? (move after)

With ActiveWorkbook
    
    .Sheets(rgn2(lp) & "_Top_10_Spec_Sum").Select
    
        With ActiveWorkbook.Sheets
                    
            .Move after:=Sheets(rgn2(lp) & "_Top_10_PCP_Sum")
            
         End With
    
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets(rgn2(lp) & "_Top_10_PCP_Sum").Select
    
End With

 

[Zathras]

Not exactly sure about what your function rgn2(lp) does, but assume it returns a string containing a region ID or some such. In that case, the following executes without error:

======================================================

Sub test()
Dim lp As Integer
With ActiveWorkbook
    .Sheets(rgn2(lp) & "_Top_10_Spec_Sum") _
       .Move after:=Worksheets(rgn2(lp) & "_Top_10_PCP_Sum")
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets(rgn2(lp) & "_Top_10_PCP_Sum").Select
End With
End Sub

=======================================================

Hope that helps.

 

[thegameoflife]

thank you