sandra155 respondió:
Puedes usar esta linea Private Sub UserForm_Initialize() Worksheets("hoja1").Range("a1").Select TextBox1.Text = CDbl(ActiveCell(1, 1).Value) + CDbl(ActiveCell(2, 1).Value) + CDbl(ActiveCell(3, 1).Value) + CDbl(ActiveCell(4, 1).Value) +...