Private Sub Form_BeforeQuery()
Remarks
This event occurs quite frequently. Some examples of actions that trigger this event include adding fields to the PivotTable view, moving fields, sorting, or filtering data.
Example
The following example demonstrates the syntax for a subroutine that traps the BeforeQuery event.
Private Sub Form_BeforeQuery()
MsgBox "The PivotTable view is about to query its data source."
End Sub