automatich opslaan als (zonder) popup venster

[mrnico]

Hallo ik gebruik onderstaand script om mijn bestand op te laten slaan via een knop
hierbij haalt hij de naam uit cel D4 dit gaat allemaal goed

het enige wat mijn probleem nu nog is is dat hij bij het opslaan het venster opent van opslaan als met een lege tekst
als ik vervolgens op annuleren klik slaat hij het bestand gewoon op met de naam die hij hoort te doen
nu zou ik graag dat scherm niet meer willen hebben

     FileName = Range("d4").Value
     
sFileSaveName = Application.GetSaveAsFilename(InitialFileName:="W:\Monteur Elektro\checklist\ " & FileName & ".xlsm")
    If sFileSaveName <> False Then
        ActiveWorkbook.SaveAs sFileSaveName

        Exit Sub
    End If

 

[edmoor]

Dat scherm roep je zelf aan met Application.GetSaveAsFilename.
Dit is voldoende:

ActiveWorkbook.SaveAs "W:\Monteur Elektro\checklist\" & FileName & ".xlsm"

 

[mrnico]

Dankje klopt even niet gezien