- Try This
Dim i As Integer
Cells(2,4).Select ' Root Cell
For i = 4 To 15
Cells(ActiveCell.Row, i) = UserForm.Controls("TextBox" & i).Value
Next i
"trini" wrote:

Hi everyone,
I am trying to fill about 12 cells from 12 textboxes and for some reason my
code does not work. I know it has to do with the 'Textboxi.Value' but how
else can I do this?

Dim i As Integer
For i = 4 To 15
emptyCell2.Offset(0, i) = TextBoxi.Value
Next i