BeforeSave event is very useful for running customized code while saving the workbook.
Example
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel as Boolean)
a = MsgBox "Ok I am saving the sheet now.............."
End Sub