Filter Pivot From List

I have a pivot created by another team, using remote source data. For each member of my team I need to run a series of macros to configure the pivot the way they need it. Each member has 3 to 12 different DeptIDs, and each DeptID has 20 to 50 Programs (PACs).

There is no "Member" field in the pivot, only DeptID and PAC to limit the data. So, in my workbook I have a sheet ("DivPAC") listing each member in column 1, with their DeptIDs in column 2 and PACs in column 3, as shown in the picture.

My team members select their name at the start of the process. What I'm trying to figure out is how, during my manipulation of my pivot, I can use the name they input to filter my pivot to their data. I'm looking online but not having much luck, so would appreciate any help you can provide.

Attach a sample workbook and we should be able to help you out. If you are familiar at all with VBA, it is a matter of printing the name into the pivot table filter if it is a single select. Multiselect values are a bit more complicated.

I'm pretty familiar with VBA. I've attached two sample files:
"My Macro Workbook" is to represent the workbook my team is working from (where the Macros reside). The "DivPAC" is one tab in the actual workbook, and tells what Dept Id and PAC each member is responsible for.

"The Pivot Table" workbook represents the pivot table as it exists when I first come in to it. The original workbook consists only of the pivot which is created by another team from an external database I can't access directly. The amount of Data in the pivot is HUGE, so double-clicking to get to the source data and starting from there isn't a very realistic option. I've included a sheet showing the Pivot Field List in case that helps.

All I need help with is the actual part of whittling the data down to the individual Budget Analyst, and of course the "Budget Analyst" field isn't part of the Pivot data, so I have to get it by DeptID and PACs. As an FYI, a DeptID may be handled by multiple analysts, and a PAC may exist in multiple DeptID, but each DeptID/PAC combo is unique to one analyst. Representative code is shown below.

Set WbSrc = Workbooks.Open _
                    ("\\12st1001fs01\SHARE10911\Budget\_Protected_Data\Source_Docs\_OOE_MOF_PivotTables\OOE_BR1617_ExpDtl.xlsx", ReadOnly:=True, UpdateLinks:=True)


        Set PT = ActiveSheet.PivotTables("PivotTable1")

        With PT.PivotFields("DEPTID")
            .ClearAllFilters
            .Orientation = xlRowField
            .Position = 1
            For Each PI In .PivotItems
                Select Case PI.Name
                Case "Debbie"
                Case Else
                    PI.Visible = False
                End Select
            Next PI
        End With

I think this is doable. I'll get to when I've beaten down the flames here to smoldering embers.

I think I've got it. Code below filters according to my ranges.

 Set PT = ActiveSheet.PivotTables("PivotTable1")

    'Restrict the data to what's shown in our "DivPAC" page
        MyDat = Application.Transpose(WB.Sheets("DivPAC").Range("G6:G12").Value) 

    With PT.PivotFields("DEPTID")
        .PivotItems(MyDat(1)).Visible = True
        On Error Resume Next
        For Each PI In .PivotItems
            PI.Visible = UBound(Filter(MyDat, PI.Name)) >= 0
        Next PI
    End With
    
    MyDat = Application.Transpose(WB.Sheets("DivPAC").Range("J40:J133").Value)

    With PT.PivotFields("PROGRAM_CODE")
        .PivotItems(MyDat(1)).Visible = True
        On Error Resume Next
        For Each PI In .PivotItems
            PI.Visible = UBound(Filter(MyDat, PI.Name)) >= 0
        Next PI
    End With

I can also replace ""G6:G12" with my namedRange "DebbieDiv", like this:

MyDat = Application.Transpose(WB.Sheets("DivPAC").Range("DebbieDiv").Value)

. So the gets me closer to using the Analyst Name to filter the pivot. I already capture the first name of my analyst and define it as USER, so can use code like

MyDat = Application.Transpose(WB.Sheets("DivPAC").Range(User & "Div").Value)

That seems to be working for me so far.

So, all I need to do is create named ranges for each Analyst, and I should be golden. If you think of a better way I'm all open to that.