Something like

Private Sub TextBox1_Change()

TexBox5.Text = TextBox1.Text + _
TextBox2.Text + _
TextBox3.Text + _
TextBox4.Text +
End Sub

etc.

Private Sub CommandButton1_Click()
With Worksheets("Sheet1).
.Range("A1").Value = TextBox1.Text
.Range("B1").Value = TextBox2.Text
.Range("C1").Value = TextBox3.Text
.Range("D1").Value = TextBox4.Text
.Range("E1").Value = TextBox5.Text
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mark" wrote in message
...
I am using Excel 97.
I want a userform with textboxes. One of the textboxes
will display the sum of the other textboxes, if the
values of the textboxes are changed the sum textbox
changes.

On clicking a button the values are transposed onto a
worksheet.

Thanks

Mark