Is there anyway I can Filter one of the fields a pivot table shows based on the content of a cell?

Example:
I create a generic pivot table that shows all data but when the spreadsheet loads it looks at that cell and filters the data. Anyone know of how to make this work OR a better way to do this?

I am getting close to this.

I have 2 cells with drop down lists.

I have a macro that I manually fire:

Sub UpdatePivots()
    a = Worksheets("BuildQry").Cells(6, 1)
    Sheets("BuildQry").PivotTables("PivotTable2").Pivo tFields("ITDept").CurrentPage = a
    a = Worksheets("BuildQry").Cells(8, 1)
    Sheets("BuildQry").PivotTables("PivotTable4").Pivo tFields("ITName").CurrentPage = a
End Sub

This causes the pivot table to be updated based on the contents of the two cells. I am struggling with getting the macro to fire on the DropButtonClick() Event:

Private Sub Worksheet_DropButtonClick()
    a = Worksheets("BuildQry").Cells(6, 1)
    Sheets("BuildQry").PivotTables("PivotTable2").Pivo tFields("ITDept").CurrentPage = a
    a = Worksheets("BuildQry").Cells(8, 1)
    Sheets("BuildQry").PivotTables("PivotTable4").Pivo tFields("ITName").CurrentPage = a
End Sub

I will post if I get thru my struggles. Take care. -t