vba fra gem som pdf til gem som xlsm

Kan denne VBA ændres til at den gemmer filen som xlsm i stedet for pdf

Sub Udskriv_og_Gem_Som_pdf()
Dim ArkNavn, DataSti, Filnavn As String

ArkNavn = "Print" 'Navnet på den fane som skal udskrives
DataSti = "F:\" 'Der hvor filen skal gemmes, husk at afslutte med \
Filnavn = InputBox("pdftest.pdf" & vbCrLf & "Filen gemmes som pdf i nedenstående mappe" & vbCrLf & DataSti, "Gem pdf")

'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If

'Printer det aktive ark
Range("A1:M101").PrintOut copies:=1

'Gemmer det aktive ark som .pdf
Range("A1:M90").ExportAsFixedForm _
    Type:=xlsm, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
MsgBox "Filen er gemt som " & DataSti & Filnavn & ".pdf", vbInformation

End Sub