Sheet Protection

How can I modify this if I have 4 sheets and only want tp protect sheets 1, 2 and 4?

Code:

---

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

---

Hi Austen,

One way is to change this

Code:

---

ws.Protect

---

to

Code:

---

If Not ws.Name = "Sheet3" Then ws.Protect

---

HTH,

thanks

You're welcome!