Cuadro de texto a Celda

hola, !

Como paso el texto que está contenido en un cuadro de texto a una celda?.
tengo más de 100 cuadros de textos, por lo cual debo hacerlo mediante codigo.

dependiendo de 'donde' esten tus cuadros de texto [formulario, hojas de calculo, ?]
y cuales/como sean sus nombres y cuales sus celdas 'relacionadas' -???-
pudiera ser tan sencillo como algo +/- asi:

Dim n As Byte
For n = 1 To 100
Range("a" & n) = UserForm1.Controls("textbox" & n)
Next

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.