Hi Roadhouse,
You need to have your Master Book Active and it probably requires some tweaking
Sub Roadhouse(): Dim i As Long, n As Long, WM As Workbook, wc As Worksheet, ws As Worksheet
Dim x As Long, S As String: S = ActiveWorkbook.FullName: i = InStrRev(S, "."): S = Left(S, i - 1)
Set WM = ActiveWorkbook: Set wc = WM.Sheets(1): i = 2: For n = 1 To 30
wc.copy: ActiveWorkbook.SaveAs S & "_" & n & ".xlsx"
For x = 1 To 10
Worksheets.Add(After:=Worksheets(Worksheets.Count)).name = x
WM.Sheets(i).Cells.copy Range("A1"): i = i + 1
Next x
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
Next n
End Sub
Bookmarks