Exporting Worksheets as xlsm with Values not Formulas

Try this:

Sub CreateWorkbooks()
Dim wbDest As Workbook
Dim wbSource As Workbook
Dim sht As Object
Dim strSavePath As String
Dim r As Long, c As Long, ws As Worksheet
On Error GoTo ErrorHandler

Application.ScreenUpdating = False


strSavePath = "S:\Test\"


Set wbSource = ActiveWorkbook


For Each sht In wbSource.Sheets
r = sht.Rows.Find("*", , , , xlByRows, xlPrevious).row
c = sht.Columns.Find("*", , , , xlByColumns, xlPrevious).column
sht.copy
Set ws = ActiveSheet
ws.Range("A1").Resize(r, c).value = sht.Range("A1").Resize(r, c).value
Set wbDest = ActiveWorkbook
wbDest.SaveAs strSavePath & sht.name
wbDest.Close
Next

Application.ScreenUpdating = True

ErrorHandler:

End Sub

Hi JP,

End Sub is there - did you copy the entire post?

You're welcome and thanks for the rep!