Textbox in a for loop

[aviadht]

Hi,

I have a for loop that runs from 1 to 27
and i want it to update my textboxs from 1 to 27

For i = 1 To 27
TextBox1.Value = ActiveCell.Value
If TextBox1.Value = "" Then CheckBox1 = False
ActiveCell.Offset(0, 1).Activate
Next

how should i write it if i want that text box1 will be textbox(i)

Thanks,
Aviad

 

[Sektor]

If code is in UserForm:

[COLOR="Blue"]Sub[/COLOR] L()
    [COLOR="Blue"]For[/COLOR] i = 1 [COLOR="Blue"]To[/COLOR] 27
        [COLOR="Blue"]With[/COLOR] Me.Controls("TextBox" & i)
            .Value = ActiveCell
            [COLOR="Blue"]If[/COLOR] .Value = "" [COLOR="Blue"]Then[/COLOR] Me.Controls("CheckBox" & i).Value = [COLOR="Blue"]False[/COLOR]
        [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
        ActiveCell.Offset(0, 1).Activate
     [COLOR="Blue"]Next[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[aviadht]

Thanks!! (end with instead of end if but works graet!!!)

 

[Sektor]

Ah, typo...