Save Multiple Worksheets as New Workbooks Based on Sheet Prefixes

Hi hamidxa

I don't have the issue you describe but it's probably something in my settings.

Start from a clean Worksheet...only Master Worksheet.

Try this...if it does not work as expected there is a brute force solution...add the line of Code as indicated

For Each rCell In Sheets("Temp").Range("B2", Sheets("Temp").Range("B" & Rows.Count).End(xlUp))
    On Error Resume Next
    
    Application.SheetsInNewWorkbook = 1 'Add this line of Code
    Set wkBk1 = Workbooks.Add()
    Application.DisplayAlerts = False
    wkBk1.SaveAs myNewPath & rCell & ".xlsx"
    wkBk1.Close True
    Application.DisplayAlerts = True
    On Error GoTo 0
  Next rCell

Let me know of issues.

Hi hamidxa

Here it is (my settings). It's why I didn't have your issue. When my Platform creates New Workbooks, the New Workbook has ONLY one WorksheetSheets in New Book.jpg

You're welcome...glad I could help. Thanks for the Rep.