Split multi-tab workbook into separate workbooks

Aaron

You could adapt this so you can select the workbook(s) to split out.

As it is it splits out the workbook the code is in, ie ThisWorkbook.

Sub SplitWBtoWS()
Dim wbNew As Workbook
Dim WS As Worksheet
Dim strFilename As String

    For Each WS In ThisWorkbook.Worksheets

        strFilename = WS.Name

        WS.Copy

        Set wbNew = ActiveWorkbook

        wbNew.SaveAs ThisWorkbook.Path & Application.PathSeparator & strFilename

        wbNew.Close SaveChanges:=False

    Next WS

End Sub