Hi Jaz

Worksheet or workbook ?

You can copy for example the activesheet in a new workbook and change the formulas to values

Manual
Copy the cells and use Edit>PasteSpecial...values on the new sheet

Or with code

   Dim Destwb As Workbook

   ActiveSheet.Copy
   Set Destwb = ActiveWorkbook

   'Change all cells in the worksheet to values
   With Destwb.Sheets(1).UsedRange
       .Cells.Copy
       .Cells.PasteSpecial xlPasteValues
       .Cells(1).Select
   End With
   Application.CutCopyMode = False