执行到next，提示下标越界，求指导

Sub 表()
' Macro1 Macro
'
'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Range( _
"B1,E1:E2,B4:C5,E4:E5,G9:J9,D9:D10,G10:H10,G11:I11,G12:H250,D251,A1:A10,B3:E3,D2,D1,D4,D5" _
).Select
Range("D5").Activate
Selection.Locked = True
Selection.FormulaHidden = True
Dim mm As String
Dim i As Integer
Do
mm = InputBox("请输入保护密码：密码不能为空，空时不进行保护")
im = InputBox("请输入保护密码：密码不能为空，空时不进行保护")
If mm = im Then
For i = 2 To 10 '保护表sh2 to sh10
Sheets("sheet" & i).Protect mm '这里设置要保护的选项
Next
End If
Loop
End Sub