macro code to save file to new folder with values and not formulas

Hello!!,,

i am using the below macro to save the excel file to a new folder.but this is copying the formulas and not the values

Sub SaveBook()
   Dim sFile As String
   sFile = "fixing" & " " & Format(Now(), "dd.mm.yy.hh.mm") & ".xls"
   ActiveWorkbook.SaveAs Filename:="file path" & sFile
   ThisWorkbook.Close Saved = True
End Sub

how can i amend it to save the values from the sheets instead of formulas.

PLease Help

Many thanks

Gokz