Cuadro de texto a Celda

hola, !

> Hoja1, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 1" al "Cuadro de texto 25"
> Hoja2, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 26" al "Cuadro de texto 50"
> Hoja3, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 51" al "Cuadro de texto 75"
> Hoja4, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 76" al "Cuadro de texto 100"
> No estan en ninguna celda o rango en particular, sino que estan "flotando"...
> Necesito que lo que diga en el cuadro de texto 1 quede en una hoja llamada Comentarios, celda A1,
> Cuadro de texto 1 = Celda A1
> Cuadro de texto 2 = Celda A2 ..etc...
> El codigo que se encuentre en Thiswoorkbook, al momento de guardar el archivo, se copien los textos en las celdas.

copia/pega las siguientes lineas en el modulo de codigo de tu libro [ThisWorkbook] DEPENDIENDO DE...

1) si tus 'cuadros de texto' son de la barra de herramientas de dibujo [o sea, cuadros de texto 'normales']...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sig As Byte
For Sig = 1 To 100
Worksheets("comentarios").Range("a" & Sig) = _
Worksheets("hoja" & Int(((Sig - 1) + 25) / 25)) _
.Shapes("cuadro de texto " & Sig).TextFrame.Characters.Text
Next
End Sub

2) si tus 'cuadros de texto' son de la barra de herramientas 'cuadro de controles' [o sea, TextBoxes]...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sig As Byte
For Sig = 1 To 100
Worksheets("comentarios").Range("a" & Sig) = _
Worksheets("hoja" & Int(((Sig - 1) + 25) / 25)) _
.OLEObjects("cuadro de texto " & Sig).Object.Text
Next
End Sub

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