Error de Sintaxis en Checkbox

[cmarti]

Necesito recorrer 10 campos check de un formulario llamados Checkbox1, Checkbox2....Checkbox10, verificando si se encuentran en False. Si es así, me dirijo a una hoja llamada "A DB" y dejo en blanco determinada celda.

Aquí el código que me da como error: Error de Compilación, Error de Sintaxis

Código:

Private Sub ActualizarCodigos_Click()
Dim i, j As Integer
j = 1
     Sheets("A DB").Select
    For i = 1 To 10
        If CheckBox&i = False Then
            ActiveSheet.Cells(1, j).Value = "" 'cells(fila,columna)
            j = j + 1
        Else
            Next i
        End If
        Next i
End Sub