Easy. everything except formulas: 
    Set wb2 = Workbooks.Add
         With wb2.Sheets(1).Cells(1)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
            .PasteSpecial Paste:=xlPasteColumnWidths
            .PasteSpecial Paste:=xlPasteComments
         End With
    Application.SheetsInNewWorkbook = SINW