Copy Certain Tabs to a new Workbook

[gheyman]

I have a program that takes a templete, copies it, fills in some information and then renames the tab based on text in a cell on that sheet. The code loops so I end up with about ten tabs that are created from the Template.

I want to move these newly created tabs to a new Workbook.

is there a way (code) that will move all the tabs except ones delineated in the code - like the tab named "Template"?

 

[par60056]

you will obviously need to put in your own workbook names but this should help

Dim sh As Object


For Each sh In Workbooks("Book5").Sheets
    If sh.Name <> "Sheet1" Then
        sh.Move After:=Workbooks("Book4").Sheets(Workbooks("Book4").Sheets.Count)
    End If
Next