Saving as PDF ? ANyone know why this code is saving as a PDF ?

[JamesStag]

Sub saveworkbook()

Sheets("Details").Select
 ActiveSheet.ExportAsFixedFormat Type:=xlsm, _
        filename:="C:\Users\James\Documents\Excel Test Folder\Quotes Invoices Spread Sheets\_" & _
        Worksheets("Details").Range("C6").Value & ".xlsm", _
        OpenAfterPublish:=False

End Sub

 

[Norie]

You haven't declared/defined the variable xlsm so VBA will have given a default initial value.

That value could be 0 and if that's the case it corresponds to the value for the XlFixedFormatType constant xlTypePDF.

 

[Kenneth Hobson]

The type is xlTypePDF or xlTypeXPS.

Try:

  Sheet1.SaveAs "C:\Users\James\Documents\Excel Test Folder\" & _
    "Quotes Invoices Spread Sheets\_" & _
    Worksheets("Details").Range("C6").Value & ".xlsm", _
    xlOpenXMLWorkbookMacroEnabled

 

[JamesStag]

That has done the trick, Thanks Kenneth.

And thanks Norie.