VBA to Split Worksheets into separate Workbooks by Tab Name

I have a workbook that has the following tabs:
Assignments_CENTRL
Assignments_NORTHR
Assignments_PACIFC
Assignments_SOUTHD
Assignments_SOUTHJ
SummaryAuditRptCENTRL
SummaryAuditRptNORTHR
SummaryAuditRptPACIFC
SummaryAuditRptSOUTHD
SummaryAuditRptSOUTHJ
SummaryRptCENTRL
SummaryRptNORTHR
SummaryRptPACIFC
SummaryRptSOUTHD
SummaryRptSOUTHJ


And I need them broken into separate workbooks by the last 6 for the tab name:
File: CENTRL_CCYYMMDD
TabNames: Assignments_CENTRL; SummaryAuditRptCENTRL; SummaryRptCENTRL

File: NORTHR_CCYYMMDD
Tab Names: Assignments_NORTHR, SummaryAuditRptNORTHR, SummaryRptNORTHR
etc
then possibly drop the last 6 of the tab names:
File: CENTRL_CCYYMMDD
TabNames: Assignments; SummaryAuditRpt; SummaryRpt

This is the code i have so far:

Please Login or Register  to view this content.

But I dont want a Sheet1 in each
And our company is using Titus classification and it stops at Each file to ask classification