Hi,

I have outline on three protected worksheets in a workbook, and I want other users to be able to collapse and expand the outline while the worksheets are protected. I entered the following code (which works fine):

Option Explicit
Sub auto_open()
With Worksheets("REPORT1")
.Protect Password:="test", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

I then try the following (but it's not working):

Option Explicit
Sub auto_open()
With Worksheets("REPORT1")
With Worksheets("REPORT2")
With Worksheets("REPORT3")
.Protect Password:="test", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

Any help, please?

Thank you,
Gos-C