Hi,
I would like my macro for the pivot table to Filter cells B3 and B4 once run. If you could help with correcting the code below I would appreciate.
Regards
Minesh
__________________________________________________________
Sub Updated_Report_Based_On_Selected_Customers()
Dim Field6 As PivotField
Dim NewCat6 As String
Set Field6 = Worksheets("Graphs").PivotTables("PivotTable6").PivotFields("Customer Name")
NewCat6 = Worksheets("Graphs").Range("B3").Value
NewCat7 = Worksheets("Graphs").Range("B4").Value
Field6.ClearAllFilters
Field6.EnableMultiplePageItems = True
On Error Resume Next
Field6.CurrentPage = NewCat6
Field6.CurrentPage = NewCat7
Worksheets("Graphs").PivotTables("PivotTable6").PivotCache.Refresh
'
'
'
End Sub