Opslaan als met een VBA

[Norman Scheuter]

Hallo,

Ik heb een VBA in een Excelsheet staan waarmee meteen een schijf verwijzing in zit.
Echter loop ik tegen een klein probleem, het bestand waar de VBA in zit is een *.xls
Hij wil hem nu opslaan als een*.xlsm
Ik zou graag een*.xls behouden maar kan niet zien waarom hij er een *.xlsm van wil maken.

Sub BewaarAls()
    With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "R:\" & Range("E2").Value
    .FilterIndex = 2
    .Title = "Kies een map"
    .AllowMultiSelect = False
     If .Show Then .Execute
    End With
End Sub

Onderstaande werkt ook niet.

Sub BewaarAls()
    With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "R:\" & Range("E2").Value& ".xls"
    .FilterIndex = 2
    .Title = "Kies een map"
    .AllowMultiSelect = False
     If .Show Then .Execute
    End With
End Sub

Iemand enig idee om het toch als een*.xls te kunnen opslaan met deze vba?

Groetjes Norman.

 

[SjonR]

Maak van die 2 eens een 4

 

[Norman Scheuter]

Hallo SjonR,

Omg, was alles maar zo simpel
Je moet het maar weten.

Dank je wel.

Groetjes NOrman