Hi Jens

Try
Sub RefreshAllPivots()
Dim pc As PivotCache
For Each pc In ActiveWorkbook.PivotCaches
pc.Refresh
Next
End Sub

--
Regards

Roger Govier


"Jens" <Jens @discussions.microsoft.com wrote in message
...
It seams that

ActiveWorkbook.RefreshAll

dos not update pivot tables!

Any hints