On Error GoTo Solucao

Ta cansado dessa tela:

Porém o erro é necessário? não use o GATO:

Use a função "On Error GoTo", Exemplo:

 With ActiveSheet.PivotTables("PivotTable2").PivotFields("Status")

 On Error GoTo Solucao        .PivotItems("0").Visible = False
        .PivotItems("(blank)").Visible = False
        .PivotItems("Cancelado").Visible = False
        .PivotItems("Provisionado").Visible = False
 Solucao
     End With

Atenciosamente,