Private Sub Form_OnDisconnect()
Example
The following example demonstrates the syntax for a subroutine that traps the OnDisconnect event.
Private Sub Form_OnDisconnect()
MsgBox "The PivotTable View has " _
& "disconnected from its data source!"
End Sub