Cel bereik opslaan als excel bestand (macro van .pdf naar .xls?)

[Soppuh]

Goedemiddag,

Onderstaande code slaat een bepaald bereik op als .pdf. Echter wil ik dit laten opslaan als excel bestand om gegevens op te kunnen roepen.
Ik heb in de code overal al .pdf aangepast voor .xls maar dat werk niet. Hoe krijg ik dit wel werkend zodat het opgeslagen wordt als excel bestand?

Sub Opslaan()
    Dim FacName As String
    Dim Map As String

    'De macro haalt met deze opdracht gegevens op in het document, om deze later als naam voor het PDF-bestand te gebruiken.
    FacName = ActiveSheet.Range("D2").Value & " -- " & Range("D8").Value & ".pdf"
    
    'De folder waarin het bestand moet worden opgeslagen
    Map = "G:\Frank\"
    If Dir(Map, vbDirectory) = "" Then
        MsgBox "De folder " & Map & " bestaat niet"
        Exit Sub
    End If
       
    'Een controle om geen bestaand PDF-bestand te overschrijven.
    If Dir(Map & FacName) <> "" Then
       MsgBox "Het bestand: " & FacName & " bestaat reeds"
    Else
        On Local Error GoTo Fout
        Sheets("Blad1").Range("A1:G54").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Map & FacName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        MsgBox "Het bestand: " & FacName & " is opgeslagen"
        Exit Sub
    End If
    
Fout:
    MsgBox "Het bestand: " & FacName & " is NIET opgeslagen"
End Sub

 

[Peekhamer]

 Type:=xlTypePDF, _

heb je die ook aangepast?
Automatisch opslaan als xlsx moet je wel kunnen vinden hier op het forum.

 

[Soppuh]

 Type:=xlTypePDF, _

heb je die ook aangepast?
Automatisch opslaan als xlsx moet je wel kunnen vinden hier op het forum.

Dit heb ik inderdaad ook al aangepast.
Moet eigenlijk precies bovenstaande code hebben aangezien deze code doet wat ie moet doen. Echter moet het bestand alleen opgeslagen worden als XLSX of XLS i.p.v. .pdf.