Code:Worksheets("Pivot Table").PivotTables("PivotTable4").ChangePivotCache _ ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=Worksheets("Imported Data").Range("A1:L" & _ Worksheets("Imported Data").Cells(Rows.Count, 1).End(xlUp).Row).Address(External:=True), _ Version:=xlPivotTableVersion14)




Reply With Quote
Bookmarks