Private Sub prompter for SaveAs 2 gange

Hejsa,
Jeg har en 'Makro Enabled template', som som skal vælge formatet 'Makro Enabled Workbook' i det man klikker Save As.

Koden forneden virker i og for sig fint nok, men jeg forstår ikke, jeg skal promptes 2 gange??

(prøv at sætte den ind i et tomt sheet under ThisWorkbook for at teste)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show arg2:=xlOpenXMLWorkbookMacroEnabled

End Sub

Paa forhaand tusind tak :)