Graphs Stop Macro to Protect WB [SOLVED]

[J G]

I have this code to protect all worksheets and enable some formatting.

Sub ProtectSheets()
Dim wsheet As Worksheet
For Each wsheet In Worksheets
wsheet.Select
ActiveSheet.Protect Password:="ABC", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
 
Next wsheet
End Sub

My problem is that the second tab in the workbook contains graphs and the marco will protect the second tab but stops there. How do I correct this and make the macro run through the whole workbook?

Thanks,
JG

 

[Luke M]

Instead of selecting each sheet, try to set the protection directly.

Sub ProtectSheets()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Protect Password:="ABC", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True

Next wsheet
End Sub

 

[J G]

Thanks that did it.