Hvis fil er gemt før så Save ellers SaveAs

Formål:
At diktere det forslået navn på filen når den skal gemmes første gang.

Problem:
Uanset om jeg trykker Ctrl+s eller lign. så fanger min kode eventen og laver det til en SaveAs hvor man bliver spurgt om filnavnet.

Ønske:
Når filen er blevet gemt første gang, så skal skriptet kun lave en Save til den fil, og ikke lave en SaveAs.


Min kode fra ThisWorkBook  Office 2010



'This dictates the suggested filename when user makes a save

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

'GoTo MyDebugEnd  'Enable this line to disable the script.

Dim user, DocType, ProjectName, Dept, SaveAsFile, NameFile, SendPath

user = Environ("USERNAME")

SendPath = "C:\Users\" & user & "\Desktop\"

DocType = "VOC"

Application.Goto Reference:="Title"
ProjectName = ActiveCell.Value


On Error Resume Next
Application.Goto Reference:="Task"
On Error Resume Next
Application.Goto Reference:="NumberLast"

Dept = "Tooling"

Application.Dialogs(xlDialogSaveAs).Show Format(DocType & " - " & ProjectName & " - " & Dept)

MyDebugEnd:

End Sub