There is a Before Save Event associted with ThisWorkbook. Right Click the
Excel Icon next to File on the menu bar and select View Code. Then paste the
following...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
msgbox "you are saving..."
End Sub