Ok well I found a solution so figure I would post…


With pt
LastRefreshDate = ""
LastRefreshDate =
pt.PivotCache.RefreshDate
pt.PivotCache.Refresh
Do Until pt.PivotCache.RefreshDate <
LastRefreshDate
Application.Wait (Now +
TimeValue("0:01:00")) 'Waits 1 minute before reevaluating
Loop
End With