Error in Macro

[harts15]

Hi People,

I managed to source macros to filter multiple items in a pivot table based on an array or range available in another work book

Bu I am getting function error or expression error can you please help with the full code.

Filter_PivotField _
pvtField:=Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("SalesRep"), _
varItemList:=Application.Transpose(Sheets("Sheet2").Range("SalesRepsToShow"))
--------------------------------------------------------------------------------------------
Filter_PivotField _
pvtField:=Sheets("Sheet1").PivotTables("PivotTable1").PivotFields("SalesRep"), _
varItemList:=Array("Adams", "Baker", "Clark")