Sort Excel Worksheets in a workbook based on order of names outlined

[vik2slick]

Hi, Can anyone help in providing a VBA code to sort Excel Worksheets in a workbook based on an order of worksheet names outlined in a 'Order' worksheet that has the names listed in cell range A2 to A200?

Appreciate the help.

 

[ParamRay]

Sub SortSheets()
  Dim lngCounter As Long
  Dim objSheet As Object
  Dim x As Range
  
  For Each x In ThisWorkbook.Sheets("Order").Range("A2:A200")
    On Error Resume Next
    Set objSheet = ThisWorkbook.Sheets(x.Text)
    On Error GoTo 0
    If Not objSheet Is Nothing Then
      lngCounter = lngCounter + 1
      objSheet.Move ThisWorkbook.Sheets(lngCounter)
      Set objSheet = Nothing
    End If
  Next x
End Sub

 

[vik2slick]

Thank you so much!! This worked and saves me so much time for multiple files on a monthly basis. Thanks again!