in PPT,

in class module called classSAVE:

Public WithEvents PPTEvent  As Application
in standard module

ublic objSaveSlide As New classSAVE

Private Sub Presentation_Open()
    Set objSaveSlide.PPTEvent = Application
End Sub

Private Sub Preentation_New()
    Set objSaveSlide.PPTEvent = Application
End Sub


Private Sub PPTevent_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)

Dim strWB As String
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim strUser As String
Dim vUser As Variant
Dim dDate As Date
Dim dTime As Date
Dim bStarted As Boolean
Dim NextRow As Integer
Dim fso As Object
Dim intResponse As Integer
 
 
    intResponse = MsgBox("update the logbook", vbYesNo)
[...then same code with small modification]
The message box isn't even firing...

I cant find find (even in microsoft help) a clear explanation of how event on action works... That could be very useful to master for future projects.