Problemas al Ejecutar Permisos macros excel

Hola Experto
Tengo un problema con la macro que estoy desarrollando...
Quiero generar diversos niveles de permisos en la hoja así:
1. Administrador
2. Grupo Planeación
3.Regionales
Sin embargo la macro genera algún error con el código:
El error dice boque next sin for
Agradezco tu ayuda ...
Este es el código.-
Dim R
Private Sub CommandButton1_Click()
On Error GoTo Errorusuario
For I = 2 To R
a = Sheets(2).Cells(I, 1)
b = Sheets(2).Cells(I, 2)
If a = ComboBox1 And b = TextBox1 Then
Unload Me
UserForm2.Show
UserForm1.Hide
Else
If a = ComboBox1 And b = TextBox1 And c = "GRUPOPLANEACION" Then
Unload Me
UserForm5.Show
UserForm1.Hide
Exit Sub
End If
Next
Errorusuario:
RESPUESTA = MsgBox("CONTRASEÑA INVALIDA DESEA VOLVER A INTENTAR", vbOKCancel, "CONTRASEÑA INVALIDA")
If RESPUESTA = 3 Then
ActiveWorkbook.Close (False)
ComboBox1.Text = ""
TextBox1.Text = ""
End If
End Sub