Control Arrays

Hi,

Do you mean something like ...

Private Sub CommandOK_Click()
Dim i As Long
For i = 1 To 120
Sheets("Data").Range("A" & i) = Me.Controls("TextBox" & i).Value
Next i
Unload Me
End Sub