Exporting Worksheets as xlsm with Values not Formulas

I am using an export code to take my worksheets to a destined folder in xlsm format. I am looking to adjust this formula so when the worksheets are exported it is a flat file that just contains the values in the cells NOT the formulas.

Sub CreateWorkbooks()Dim wbDest As Workbook
Dim wbSource As Workbook
Dim sht As Object 
Dim strSavePath As String


On Error GoTo ErrorHandler


Application.ScreenUpdating = False 


strSavePath = "S:\Test\" 


Set wbSource = ActiveWorkbook


For Each sht In wbSource.Sheets
sht.Copy
Set wbDest = ActiveWorkbook
wbDest.SaveAs strSavePath & sht.Name
wbDest.Close 
Next

Application.ScreenUpdating = True

Exit Sub

Thanks guys