it's kinda working, but in an odd way...
i'm able to press the buttons, and the fields will be added or be hidden, but the error will pop up alongside. it's occuring at the 2nd point it's used in the code..under the "Else Add to Rows area" :
Else 'Add to Rows area
pt.PivotFields(sField).Orientation = xlRowField
shp.Fill.ForeColor.Brightness = 0