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
Bookmarks