Looping through TextBox's

[Guest]

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?

 

[Guest]

Thanks!

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)