Protect/Unprotect Sheets in array with VBA

I never use Option Explicit so not used defining variables.

Private Sub Workbook_Open()
    Dim SHEETList, sht
    SHEETList = Array("TTL APAC", "Japan", "Korea", "HK Hub", "China", "HMT", "ANZ", "SEA")

    For Each sht In SHEETList
        Sheets(sht).Protect Password:="xxxxx"
    Next sht

End Sub