Then you can loop
Sub Hide_PT_Errors()
   Dim pvt as pivottable
   for each pvt in ActiveSheet.PivotTables
    With pvt
        .ErrorString = ""
        .DisplayErrorString = True
    End With
   next pvt
End Sub