Do
intRow = intRow + 1
ws.Cells(intRow, 2).Value = frm_Activity _
.Controls("TB" & intRow).Value
Loop Until intRow = 50

--
Regards,
Tom Ogilvy

"TimT" wrote in message
...
Actually here is the code so far, I just cant get the value for the
textbox
TB to change, my syntax is wrong:

Private Sub BTNActivityDone_Click()

Dim ws As Worksheet
Dim intRow As Integer

Set ws = Worksheets("vlookup")

intRow = 0

Do
intRow = intRow + 1
ws.Cells(intRow, 2).Value = frm_Activity.TB&intRow.Value
Loop Until intRow = 50

frm_Activity.Hide



End Sub




"TimT" wrote:

hello all,
I'm trying to write a loop that would do the following

ws.Cells(1, 2).Value = frm_Activity.TB1.Value

until it reaches the 50th row. But it also needs to change the textbox
number as it loops.

could someone help me with the syntax?