Hi ExcelFox
I tried this code below but it still asks for the sheet to be unprotected otherwise the grouping cannot be changed
ThanksCode:
Private Sub Auto_Open()
Dim wks As Worksheet
For Each wks In Worksheets
With wks
.Protect Password:="abc", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next wks
End Sub
Paul