I have the following code in the "ThisWorkbook" section of an excel file.
Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
UpdateInitiativeData
UpdateInitiativeList
Application.ScreenUpdating = True
MsgBox "Successful"
End Sub
Where UpdateInitiativeData and UpdateInitiativeList are two subs also in the "ThisWorkbook" section.
For some reason when I save the file, nothing runs. The message box does not even popup. Any suggestions on how to fix this? I've even tried Taking all the code out of the "ThisWorkbook" section except for:
Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Successful"
End Sub
And I've had no luck with that either. No message box popup.
Thanks in advance!