Exporting Workbook without Macro/Formulas

Looking to make a copy of open workbook and save as it to a specific folder without any of the formulas/macros from the original.
I keep have trouble on

Output.SaveAs FileName, XlFileFormat.xlOpenXMLWorkbook

This is the full code:

Sub Flatten()

    Dim Output As Workbook
    Dim Current As String
    Dim FileName As String

    Set Output = ThisWorkbook
    Current = ThisWorkbook.FullName

    Application.DisplayAlerts = False

    Dim SH As Worksheet
    For Each SH In Output.Worksheets

        SH.UsedRange.Copy
        SH.UsedRange.PasteSpecial xlPasteValues, _
            Operation:=xlNone, SkipBlanks:=True, Transpose:=False

    Next

    FileName = ThisWorkbook.Path & "S:\Location\" & "4XX.xlsx"
    Output.SaveAs FileName, XlFileFormat.xlOpenXMLWorkbook
    Workbooks.Open Current
    Output.Close
    Application.DisplayAlerts = True
End Sub