LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 989
Default Cancel Macro is user selects 'cancel' at save menu

I currently have a macro that, before it runs, the save as menu automatically
comes up and asks the user to save his/her current data. However, I do not
know how to code anything to cancel the process.

Currently, if the user saves or not, the macro automatically continues. I
want the user to be able to choose between saving or not... but then be
prompted to continue running the macro or opt out.

My code, as it stands, is as follows....


Sub BackUp_Save()

Dim SaveName As Variant
Dim fFilter As String
Dim NewName As String

MsgBox "You are about to delete all data within the model. Saving is
suggested."
NewName = "Model BackUp"
fFilter = "Excel Files (*.xls), *.xls"
SaveName = Application.GetSaveAsFilename _
(NewName, fileFilter:=fFilter)

If SaveName = False Then
'use cancelled--what to do?
Else
ThisWorkbook.SaveAs Filename:=SaveName, FileFormat:=xlWorkbookNormal
End If

MsgBox "The model will now perform a refresh. Please wait."

End Sub

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Workbook_BeforeClose(Cancel As Boolean) - Cancel won't work gpmichal Setting up and Configuration of Excel 1 May 12th 09 02:33 AM
cancel save lawson Excel Discussion (Misc queries) 1 October 11th 07 11:00 PM
How to CANCEL file SAVE PROMPT when MACRO is running? Stuart Macro Muppet Excel Discussion (Misc queries) 3 August 11th 05 12:26 PM
How to Cancel a Save? Rodg2000 Excel Programming 1 January 9th 04 10:47 AM
Dialog Box - User hits cancel CS[_2_] Excel Programming 4 November 14th 03 10:05 PM


All times are GMT +1. The time now is 07:00 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"