Save Event

I want to run a macro that is started with a "BeginSave" event. I use the following code and it does what it should. However, the macro runs when I select an object and start to move/copy the object by dragging it to it's new location (without using the standard acad command of "move" or "copy"). The message box tells me the drawing is being saved in the temp directory. Is there a way to keep the save from happening or not look like a save to the macro so the macro doesn't run?

Thanks,

Private Sub AcadDocument_EndSave(ByVal FileName As String)
' This example intercepts a drawing EndSave event.
'
' This event is triggered when a drawing finishes a save request.
'
' To trigger this example event: Save an open drawing and wait for the save to complete

' Use the "FileName" variable to determine where the drawing file was saved
MsgBox "A drawing has just been saved to: " & FileName
End Sub