Pivot Table- Pagefield Updated Automatically

[davidhall]

I'm stumped on some Vba and need some assistance.

I have a pivot table on Sheet 2. This is a hidden sheet. The only cell I change on the pivot table to generate my data below is cell D4.

On sheet 1, I am trying to enter a value in cell A1 and have the cell D4 on sheet 2 change and update the pivot table data below.

Here is my current code. I know it's lacking a lot but any help would be great. I know this has something to do with the pagefield


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Synchronize Sheet 2 Cell D1 with Sheet 1 Cell A1

If Target.Range("A1") Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False

Set PivotTable1.PageFields = Worksheets("Sheet2").Range("D1").PivotTable
ActiveSheet.PivotTables(1).PageFields(1).CurrentPage = PivotItem.Value

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


Any suggestions?