Hi ExcelFox

I tried this code below but it still asks for the sheet to be unprotected otherwise the grouping cannot be changed

Code:

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
Thanks

Paul