Try the code below
copy and Paste the code in new module

Option Explicit

Sub ShowDates()
Dim pt As PivotTable
Dim ws As Worksheet
Set ws = Worksheets("Pivot")
Set pt = ws.PivotTables(1)

pt.PivotCache.Refresh
End Sub


Vishwanath N


*** Sent via Developersdex http://www.developersdex.com ***