Hiding All Column Labels With VBA

I am trying to create a macro based on a User Selection in a Combo Box. All I want this Macro to do is based on one of the 5 selections the user makes in the Combo Box, it updates two pivot tables Column Labels. I want it to first clear out what is currently in the Column Lables for the Pivot Table and then set it as follows below.

So my problem is that the ResetPivotTable calls (call function shown at bottom) clears all just about all of the fields. I am also getting errors sometimes. The first time I run it, it clears out the Column Labels and works fine. The second time I run it, it clears out everything...

So here is what I have for the first part of the Macro. This part seems to be working fine; however it is the ResetPivotTable functions that are causing the problems. These seem to clear out all the labels, but also seems to be throwing errors.

HTML Code:

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
'Refreshes the Pivot Table in case it is stale
Sheet12.PivotTables("PivotTable1").RefreshTable
Sheet12.PivotTables("PivotTable2").RefreshTable

[Code]...

'Calls function to hide all the empty colums in the report after updates have been made Call HideEmptyColumns2

End Sub

And the PivotFields function is as follows:

HTML Code:

Sub ResetPivotTable1()
Dim pvt As PivotTable
Dim pvf As PivotField
Set pvt = Sheets("Cost Summary").PivotTables("PivotTable1")

[Code]...