Thread: Email on save
View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Claus Busch Claus Busch is offline
external usenet poster
 
Posts: 3,872
Default Email on save

Hi Auric,

Am Wed, 27 Jul 2016 18:15:27 -0000 (UTC) schrieb Auric__:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
saved = True
If MsgBox("Generate email?", vbYesNoCancel) = vbYes Then generateEmail
End Sub


it is a good idea to use a MsgBox. But it is also annoying when the
MsgBox appears 600 times.
Maybe it is better to put the code in the WorkBook_BeforeClose event.


Regards
Claus B.
--
Windows10
Office 2016