Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
MsgBox "The PivotTable connection has been updated."
End Sub

--
Cheers
Nigel



"Dan" wrote in message
...
Is there a way to wait for a Pivot Table to finish refreshing before
continuing with the code execution?

Thanks,
Dan