View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Paige Paige is offline
external usenet poster
 
Posts: 270
Default Workbook_BeforeSave Does Not Trigger

I have a regular module with a sub that contains code, at the end of which
the user is prompted to save the file (or not); the code is below. If the
user elects to save, then code that resides in ThisWorkbook under a
Workbook_BeforeSave module does not fire. Enable events is on. Can someone
advise what I'm doing wrong here?

MsgBox ("Processing has completed; save the file now, under a different" & _
"file name. If you don't want to save it, select 'Cancel' on the next
menu.")
FName = Application.GetSaveAsFilename(InitialFileName:="",
FileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If FName < False Then
ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlWorkbookNormal
End If