convert cells in worksheet to values

[SamT]

Dim SINW As Long
SINW = Application.SheetsInNewWorkbook 'Current default
       
    Application.SheetsInNewWorkbook = 1 'Changes current default
       Set wb1 = Application.ActiveWorkbook '<--- Original line of code
          wb1.ActiveSheet.UsedRange.Copy
       Set wb2 = Workbooks.Add
          wb2.Sheet1.Cells(1).PasteSpecial Operation:=xlPasteValuesAndNumberFormats
    Application.SheetsInNewWorkbook = SINW 'Resets current default