Excel macro to Instantly export as pdf in the same folder

ExcelExportAsPDF.vba

Sub ExportAsPDF()
'Instantly export as pdf in the same folder
    Dim filename As String
    filename = ActiveWorkbook.FullName
    filename = Replace(filename, ".xlsm", ".pdf")
    filename = Replace(filename, ".xlsx", ".pdf")
    filename = Replace(filename, ".xls", ".pdf")
    filename = Replace(filename, ".xlb", ".pdf")
    
    ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        filename, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub