GetSaveAsFile
I am trying to do the following:
Ask the user when the user is closin the file if the save had been saved.
If yes, close the file and quit application.
If no, then have the SaveAs dialog box appear with a preset
filename and file directory. If the user is OK with filename and directory,
the user saves file; application quit.
If cancel, exit sub.
This is what I have so far
If MsgBox("Have you save this file?", vbYesNo) = vbNo Then
sName = Range("File").Value & Range("Project").Value & "
" & "Insp. Report," & " " & Format(Report(0, 1), "d-mmm-yy")
res =
Application.GetSaveAsFilename(InitialFileName:=sNa me)
ActiveWorkbook.SaveAs Filename:=res
Application.Quit
Cancel = True
Exit Sub
Else
ThisWorkbook.Saved = True
Application.Quit
End If
--
Thanks!
|