Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |