Pivot Table Items - VBA (Anthony)

The item list for my Page items sometimes becomes corrupted. For example, when an entry in the item dropdown box is selected, the data that appears in the table is really for a different entry. This has happened several times, and the only way I have found to fix it is to rebuild the pivot table. This seems to happen at random, I am unable to trust the resulting output of the pivot table without verifying the output.

The Code iam Running on most of the pivot Tables is:

Application.ScreenUpdating = False
If Target.Address = Range("D3").Address Then
Me.PivotTables("PivotTable5").PivotFields("MA").CurrentPage = Range("D3").Value
Me.PivotTables("PivotTable6").PivotFields("MA").CurrentPage = Range("D3").Value
End If
If Target.Address = Range("D4").Address Then
Me.PivotTables("PivotTable5").PivotFields("FOM").CurrentPage = Range("D4").Value
Me.PivotTables("PivotTable6").PivotFields("FOM").CurrentPage = Range("D4").Value
End If
If Target.Address = Range("D5").Address Then
Me.PivotTables("PivotTable6").PivotFields("SITE").CurrentPage = Range("D5").Value
Me.PivotTables("PivotTable5").PivotFields("SITE").CurrentPage = Range("D5").Value
End If
End Sub