How can I modify this if I have 4 sheets and only want tp protect sheets 1, 2 and 4?
Public Sub ProtectAllSheets() Application.ScreenUpdating = False Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Next ws Sheet1.Activate Application.ScreenUpdating = True End Sub