Btukfyl

I have used https://www.mrexcel.com/forum/excel-questions/950078-filtering-pivot-table-based-cell-value.html to create the code below but I am getting an error on

Set Field = pt.PivotFields("EmployeeName")

It is saying

Unable to get the PivotFields property of the PivotTable class

Even though EmployeeName is a field in my pivot table. Now I do have 2 databases in the Data Model that both have EmployeeName as a field and they are linked via a relationship. Do I need to specify which database I want to use and how would I do that? My script is below for reference.

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("H6:H7")) 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("2018IndSales").PivotTables("PivotTable4")

Set Field = pt.PivotFields("EmployeeName")

NewCat = Worksheets("2018IndSales").Range("H6").Value



'This updates and refreshes the PIVOT table

With Worksheets("2018IndSales").PivotTables("PivotTable4").PivotFields("EmployeeName")

    .ClearAllFilters

    .PivotFilters.Add Type:=xlCaptionEquals, Value1:=Worksheets("2018IndSales").Range("H6").Value

End With



End Sub