convert cells in worksheet to values

[Ray707]

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

that worked perfectly- thank you!