Save Error

[Bruno Coelho]

Hi, I have this code in VBA in my template document, but it retrieves to soon
the InputBox (when I open the document) and i want when i close it (like
click in the close button)

Sub AutoNew()

Dim Savepath As String
Dim DocumentName As String
Dim box As String

Savepath = "G:\Administrativos\Credenciais de Deslocação\Dr. Carlos
Pinto\Credenciais Guardadas\"
box = InputBox("Qual o nome que deseja guardar", "Guardar")
DocumentName = box + Format(Now, "YYYY-MM-DD")

ActiveDocument.SaveAs FileName:=Savepath + DocumentName

End Sub

Any sugestion
Thanks