Macro to change pivot table filter based on a List Selection

[squeakums]

My current list selection is on a tab named evm summary level, and the list items are in D4. The pivot tables are name: DeliverablesDue, VLQP, pivottable1, pivottable7, pivottable3

All have the same field name that I want it to filter called EVM Name. I would setup a slicer link but they are not from the same source or tab.

 

[squeakums]

I have this written, but it isn't changing the pivot table, I think it needs to be tweaked..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'This line stops the worksheet updating on every change, it only updates when cell
'H6 or H7 is touched
If Intersect(Target, Range("g4:h4")) Is Nothing Then Exit Sub

'Set the Variables to be used
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String

'Here you amend to suit your data
Set pt = Worksheets("EVM Summary Level").PivotTables("VLQP")
Set Field = pt.PivotFields("EVM Name")
NewCat = Worksheets("EVM Summary Level").Range("G4:h4").Value

End Sub