Do Until x = 101
Sheets("Sheet1").Cells(n, x + 5) = Userform1.Controls("TextBox" &
x).Value
x = x + 1
Loop


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"PaulW" wrote in message
...
Do Until x = 101
Sheets("Sheet1").Cells(n, x + 5) = TextBox(x).Value
x = x + 1
Loop

That's essentially what I want to do, take the values of Textboxes 1 to
100
and put them in columns F to whatever. How can I loop through the
textboxes
without having to have a line for every box?