Прошу найти ошибку в программе

[Ант@н]

Private Sub Workbook_Open()
Dim NameUser As String
Dim userfind As Boolean ' найден ли введенный пользователь

NameUser = InputBox("Введите ваше имя") ' запрос на ввод имени
userfind = False ' пользователь пока не найден
For i = 5 To ' номер строки, где указан последний пользователь
' проходим по всем именам пользователей на листе dostup и сравниваем их с введенным
If NameUser = ActiveWorkbook.Worksheet("dostup"). Cells(i, 1).Value Then
' если имя найдено
userfind = True
'проходим по всем листам
For j = 10 To ' номер столбца, где указан последний лист
'в зависимости от указанного состояния выставляем св-ва листа
'ActiveWorkbook.Worksheet("dostup") .Cells(i, j).Value - состояние
' ActiveWorkbook.Worksheet("dostup"). Cells(1, j).Value - имя листа
Select Case ActiveWorkbook.Worksheet("dostup"). Cells(i, j).Value

Case "NoView":
' делаем лист не видимым
ActiveWorkbook.Worksheet(ActiveWork book.Worksheet("dostup").Cells(1, j).Value).Visible = 0
Case "OnlyRead":
' Устанавливаем защиту на измение листа, указав пароль
ActiveWorkbook.Worksheet(ActiveWork book.Worksheet("dostup").Cells(1, j).Value).Protect ("пароль на изменение")
Case "Write": ' ничего не делаем
End Select
Next j
End If
Next i

'если пользователь не найден, то скрываем все листы и выводим 'сообщение
If Not (userfind) Then
Dim currsheet As Worksheet
For Each currsheet In ActiveWorkbook.Worksheets
currsheet.Visible = 0
Next
MsgBox ("Вы ввели не правильно имя")
End If
End Sub


У меня почему то выделяет красным For i = 5 и For j = 10, кроме этих ошибок вероятно есть ещё какие-то, прошу проверить.