Is there a way in VBA to deselect all items, and then select a given item that is defined in an Excel Named Range or a given Excel Cell.

Or maybe it is possible via the pivot table. Either way would work for me

ActiveSheet.PivotTables("PivotTable1").PivotFields("Recipe Name").CurrentPage _
' = [MyRange]

Does not work