Hi Gurus !

I have (successfully) used in my code (7-8 month ago) :

Private Sub Workbook_Open()

Dim Sh As Worksheet

For Each Sh In ActiveWorkbook.Sheets
Sh.EnableOutlining = True
Next Sh

End Sub

.... but now it doesn't work ;-(

Could you please help me ? What am I doing wrong ?
I have Office 2002, SP3 (from About Microsoft Excel window)

Thank you for your answers in advance !