Can anyone tell me ? . why it shows empty pivottables collection .see at the following line . let me know please .
Set pt = ActiveSheet.PivotTables.Add(cacheofPvt, Range("A1", "A91"), "MYPT")
Set pt = ActiveSheet.PivotTables.Add(cacheofPvt, Range("A1", "A91"), "MYPT")
Code:
Sub CreatePivot()
'
' Macro1 Macro
'
Dim pt As PivotTable
Dim cacheofPvt As PivotCache
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
Sheets("pivot").Select
ActiveSheet.PivotTables("MYPT").TableRange2.Clear
'set the cache of PT (DataSource)
Sheets("Data").Select
Set caheofPvt = ActiveWorkbook.PivotCaches.Create(xlDatabase)
Sheets("Pivot").Select
Set pt = ActiveSheet.PivotTables.Add(cacheofPvt, Range("A1", "A91"), "MYPT")
' Columns("A:A").Select
Application.Run "March03.xlsx!createPivot"
End Sub