Mere Gem som

Hej
Jeg har denne kode og den virker sådan set fint, bortset fra at den gemmer i PDF format. Hvad skal der stå, hvis den skal gemme i XLS format (ja jeg ved det er et gammelt format).
Feuil4 (= Ark4) da det er noget fra et fransk regneark

Sub GemSom ()
'  Sluk lige skærmen
    Application.ScreenUpdating = False
   
    Dim strFilename    As String
    Dim strUser          As String
    Dim rngRange      As Range

'  Considering Sheet1 to be where you need to pick file name
    Set rngRange = Feuil4.Range("B2")
'  Create File name
    strFilename = rngRange.Value
    strUser = Ark15.Range("O1")

    Feuil4.Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypeXLS, Filename:= _
    "D:\Users\" & strUser & "\Desktop\ZMI34\" & strFilename & ".XLS" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

End Sub