Koda hata veriyor (For Next)

[Hakan ERDOST]

Private Sub ListBox1_Click()
Sheets("Turkce_1").Visible = True
    Sheets("Turkce_1").Select
    [A1].Select

    For a = 1 To 232
        Controls("Optionbutton" & a) = False
    Next a

    Set bul = Columns(3).Find(ListBox1.Value)
    If bul Is Nothing Then Exit Sub
    bul.Select

    If ActiveCell = ListBox1.Value Then
        For a = 1 To 20
            ver = Cells(ActiveCell.Row, a + 3)
            If ver <> "" Then
                Select Case ver
                Case 1: Controls("Optionbutton" & a) = True
                Case 2: Controls("Optionbutton" & a + 20) = True
                Case 3: Controls("Optionbutton" & a + 40) = True
                Case 4: Controls("Optionbutton" & a + 60) = True
                End Select
            End If
        Next a
    End If

    Sheets("Turkce_2").Visible = True
    Sheets("Turkce_2").Select
    [A1].Select

    Set bul = Columns(3).Find(ListBox1.Value)
    If bul Is Nothing Then Exit Sub
    bul.Select
      
    If ActiveCell = ListBox1.Value Then
        For a = 1 To 19
            ver = Cells(ActiveCell.Row, a + 3)
            If ver <> "" Then
                Select Case ver
                Case 1: Controls("Optionbutton" & a + 80) = True
                Case 2: Controls("Optionbutton" & a + 99) = True
                Case 3: Controls("Optionbutton" & a + 118) = True
                Case 4: Controls("Optionbutton" & a + 137) = True
                End Select
            End If
            
    Sheets("Turkce_3").Visible = True
    Sheets("Turkce_3").Select
    [A1].Select

    Set bul = Columns(3).Find(ListBox1.Value)
    If bul Is Nothing Then Exit Sub
    bul.Select
      
    If ActiveCell = ListBox1.Value Then
        For a = 1 To 19
            ver = Cells(ActiveCell.Row, a + 3)
            If ver <> "" Then
                Select Case ver
                Case 1: Controls("Optionbutton" & a + 156) = True
                Case 2: Controls("Optionbutton" & a + 175) = True
                Case 3: Controls("Optionbutton" & a + 194) = True
                Case 4: Controls("Optionbutton" & a + 213) = True
                End Select
            End If
        Next a
    End If
End Sub

Kodu üçüncü for da "compile variable alreday in use" hatası veriyor.

 

[Hakan ERDOST]

Sorun çözüldü.