Run-time error 1004 in Pivot Table

Good afternoon!
I have a worksheet with 5 pivot tables with the page fields updated by one set of validation lists. Problem is there are instances where the page fields may not occur in all of the tables and I receive a 1004 error, "Unable to set the _Default property of the PivotItem class". Is there a way I can tell it to ignore this and just show no data?

Sub ChangeAllPivotHeaders()

ActiveSheet.PivotTables("PivotTable2").PivotFields("PG").CurrentPage = _
    ActiveSheet.Range("A1").Value
    
ActiveSheet.PivotTables("PivotTable2").PivotFields("PC").CurrentPage = _
    ActiveSheet.Range("D1").Value

ActiveSheet.PivotTables("PivotTable4").PivotFields("PG").CurrentPage = _
    ActiveSheet.Range("A1").Value
    
ActiveSheet.PivotTables("PivotTable4").PivotFields("PC").CurrentPage = _
    ActiveSheet.Range("D1").Value
    
ActiveSheet.PivotTables("PivotTable3").PivotFields("PG").CurrentPage = _
    ActiveSheet.Range("A1").Value
    
ActiveSheet.PivotTables("PivotTable3").PivotFields("PC").CurrentPage = _
    ActiveSheet.Range("D1").Value
    
ActiveSheet.PivotTables("PivotTable5").PivotFields("PG").CurrentPage = _
    ActiveSheet.Range("A1").Value
    
ActiveSheet.PivotTables("PivotTable5").PivotFields("PC").CurrentPage = _
    ActiveSheet.Range("D1").Value
    
ActiveSheet.PivotTables("PivotTable1").PivotFields("PG").CurrentPage = _
    ActiveSheet.Range("A1").Value

ActiveSheet.PivotTables("PivotTable1").PivotFields("PC").CurrentPage = _
    ActiveSheet.Range("D1").Value
    
ActiveSheet.PivotTables("PivotTable8").PivotFields("PG").CurrentPage = _
    ActiveSheet.Range("A1").Value

ActiveSheet.PivotTables("PivotTable8").PivotFields("PC").CurrentPage = _
    ActiveSheet.Range("D1").Value
End Sub

As always, many thanks for your help!
N