VBA: create new workbook, rename, copy sheets from original to new with exceptions

[kweaver]

From a VBA routine, I want to create a new workbook, rename it (so that I can date stamp the name), then copy sheets from original workbook except certain sheets (only 3 not copied).
Then delete the copied sheets from the original workbook.

I've been messing with this for over an hour and can't get it right. Thanks in advance.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[kweaver]

Added question, Fluff. Once that new workbook has been created, sheets moved/deleted, and saved...I'd like to very-hidden two of the remaining sheets.
However, the new workbook is the active one, so where would I place a revert back to the original and hide those two sheets?

I think I resolve that.

 

[Fluff]

Is the code located in the original workbook?

 

[kweaver]

Yes.

 

[Fluff]

In that case just add this to the end of the code & change sheet names to suit

   With ThisWorkbook
      .Sheets("Sheet1").Visible = xlSheetVeryHidden
      .Sheets("Sheet2").Visible = xlSheetVeryHidden
   End With