Cache of Pivot table is not selecting the table values

[Menaka]

Hi,

I'm trying to create a pivot table , in that Set cacheOfpt = ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("A1:Z" & lRow)) is not set properly , its showing null and also not showing any error at that line.

I've attached my excel with pivot vba code in it.




Thanks in Advance,
Menaka

[Andy Pope]

Try taking the error trapping off whilst you debug you code. This will aleast help get the sheet references correct.

The pass the name of the data base rather than a object reference
[code]
Set cacheOfpt = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Data!" & Sheets("Data").Range("A1:Z" & lRow).Address)
[\code]