With Sheets(2).Cells(R, 5)
.Value = .Value + CDbl(TextBox4.Text)
End With

--
HTH

Bob Phillips

"Greg B" wrote in message
...
I am using a userform to have data transfered to a sheet. I currently use
the code below to send it to a worksheet but what I would like to have
happen is for it to add the total of the textbox to the total already in
the
cell.

R = 3 'or whatever desired row variable
Sheets(2).Cells(R, 5).Value = TextBox4.Text

Any help would be great

Thanks in advance

Greg