macro pivot table select multiple items from pivot field

[katie_1234]

hi,
excel 2007
i want to select two items from a pivot field, but i don't want it to loop through all of the choices. It takes too long. is there a code that can do this. Maybe an if function? I don't know how to write a macro; i just record them. here is part of the macro i recorded that is very slow.

ActiveSheet.PivotTables("PivotTable3").PivotFields("color").CurrentPage = _
"(All)"
With ActiveSheet.PivotTables("PivotTable3").PivotFields("color")
.PivotItems(" red").Visible = False
.PivotItems("red - RUN").Visible = False
.PivotItems("totals").Visible = False
.PivotItems("blue").Visible = False
.PivotItems("blue - RUN").Visible = False
.PivotItems("green").Visible = False
.PivotItems("yellow").Visible = False
.PivotItems("yellow- runl").Visible = False


Thank you for any help!