Hi all,

I want to protect or unprotect a number of sheets by using a Macro. I don't want to unprotect ALL sheets, but only certain sheets within my workbook. Below is the code that I have come up with. It does not seem to work yet, can someone help me fix it?

Private Sub Workbook_Open()

Dim SHEETList As String

SHEETList = " TTL APAC Japan Korea HK Hub China HMT SEA ANZ "

'unlock all sheets in array'

For Each sht In SHEETList
    sht.Unprotect Password:="xxxxx"
Next sht

End Sub