Activesheet.save as kan niet annuleren

[mathijsderuiter]

Beste mensen,

Ik gebruik momenteel deze code:

Sub Afgeronderechthoek1_Klikken()

Dim name
name = Application.GetSaveAsFilename

ActiveSheet.SaveAs(Filename:=name) = vbYes


End Sub

Werkt prima, totdat ik wil annuleren, dan krijg ik "Er bestaat in deze locatie al een bestand met de naam False.xlsm. Wilt u dit vervangen?

Vervolgens krijg ik van VBA de melding: Kan geen toegang krijgen tot False.xlsm.

Weet iemand hoe ik dit kan oplossen, dus de annuleer knop in het saveas venster de opdracht daadwerkelijk te laten annuleren?

,Mathijs

 

[Warme bakkertje]

Sub Afgeronderechthoek1_Klikken()
Dim name
name = Application.GetSaveAsFilename
If name = False Then Exit Sub
ActiveSheet.SaveAs name
End Sub

 

[mathijsderuiter]

Dan slaat hij gek genoeg het hele Workbook op..

 

[leofact]

Zo werkt het wel

Sub Afgeronderechthoek1_Klikken()
Dim name
name = Application.GetSaveAsFilename
    If name = False Then Exit Sub
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs name
    ActiveWorkbook.Close
 End Sub

De extensie moet wel .xlsx zijn.
Mvg Leo

 

[mathijsderuiter]

Super bedankt!