collapsing/expanding pivot table fields in excel 2003

Hello,

I have developed a pivot table in excel 2007 along with some code that expands/collapses fields. When I open the file in 2003, and I try to run the code it errors out. Not sure how to make this code compatible for BOTH 2003 and 2007. The code for expanding/collapsing my fields that i have generated and works in 2007 is as follows:

Sub CollapseDateFields() 
     
     
    ActiveSheet.PivotTables(1).PivotFields("CycleDate2").ShowDetail = False 
     
     
End Sub

Does anyone have any suggestions? Thank you