Hello Guys,

I would highly appreciate your help for this problem.

Does anybody have a code to sort the worksheets in a new workbook based on the original workbook? Below is the code I am using to duplicate Worksheets from the original workbook. However, new tabs are sorted alphabetically. I was trying different things but nothing worked so far.

Any idea? Is it possible to add something to the code in order to sort the tabs or do I need to create a new macro?

Thank you in advance for you help!

Regards

Ben

If strFile <> CStr(False) Then
  Set objWB = Workbooks.Open(strFile)
  For Each objSh In objWB.Sheets
        If Not SheetExist(objSh.Name, ownWB) Then
            If objSh.Visible Then
                With ownWB
                    .Sheets.Add.Name = objSh.Name
 
                End With
                ownWB.Activate
                Sheets("Land A").
                Cells.Select
                Selection.Copy
                Sheets(objSh.Name).Select
                ActiveSheet.Paste
                Range("a1").Select
                ActiveWindow.Zoom = 85
            End If
        End If
  Next
End If