Hi everyone,
Once again I need your help...
I create the following macro

With ActiveSheet.PivotTables("PivotTable3").PivotFields("OAs")
                    .PivotItems("3").Visible = False
                    .PivotItems("4").Visible = False
                    .PivotItems("5").Visible = False
                    .PivotItems("6").Visible = False
                                (...)
                    .PivotItems("51").Visible = False
        .PivotItems("(blank)").Visible = True
    End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("OAs")
                    .PivotItems("3").Visible = False
                    .PivotItems("4").Visible = False
                    .PivotItems("5").Visible = False
                    .PivotItems("6").Visible = False
                    .PivotItems("7").Visible = False
                    .PivotItems("10").Visible = False
                    .PivotItems("11").Visible = False
                                (...)
                    .PivotItems("50").Visible = False
                    .PivotItems("51").Visible = False
        .PivotItems("(blank)").Visible = True
    End With
And I want to know if it is possible
a) when I open the worksheet, the pivot table show only the item (blank) - via Sub Auto_Open()
b) if I add a new item I do not need to actualize the macro

Thanks in advance