Apply VBA to multiple worksheets in the same workbook

[nerdypants]

hi guys - i'm totally new at this VBA stuff... i'm looking to apply the code below to 2 other sheets ("Sheet1" and "Sheet2"). the code i currently have is:

Private Sub Workbook_Open()
With Worksheets("Main")
.Protect Password:="password", Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

thanks in advance - any help you guys can provide will be greatly appreciated.

 

[Coding4Fun]

Im sure there is a better way but

[COLOR=#333333]Private Sub Workbook_Open()[/COLOR]
[COLOR=#333333]With Worksheets("Main")[/COLOR]
[COLOR=#333333].Protect Password:="password", Userinterfaceonly:=True[/COLOR]
[COLOR=#333333].EnableOutlining = True[/COLOR]
[COLOR=#333333]End With
[/COLOR][COLOR=#333333]With Worksheets("Sheet1")[/COLOR]
[COLOR=#333333].Protect Password:="password", Userinterfaceonly:=True[/COLOR]
[COLOR=#333333].EnableOutlining = True[/COLOR]
[COLOR=#333333]End With
[/COLOR][COLOR=#333333]With Worksheets("Sheet2")[/COLOR]
[COLOR=#333333].Protect Password:="password", Userinterfaceonly:=True[/COLOR]
[COLOR=#333333].EnableOutlining = True[/COLOR]
[COLOR=#333333]End With[/COLOR]
[COLOR=#333333]End Sub

[/COLOR]

 

[nerdypants]

thank you!!