Code to save as pdf and xlsm

I would like to edit this code below to also save as xlsm in the same folder:


Sub Create_PDF()
Dim NewFN As Variant
NewFN = "U:\Old User Files\REPAIR STATION\RPO Invoices\Repair Orders\RPO#" & Range("J2").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
NextInvoice
End Sub


************************

I appreciate any help thank you.

activeworkbook.saveas NewFN & ".xls"

Where do I put that? This is a macro enabled workbook. Does the saved file have to be xlsm?