textbox query

[Greg B]

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

 

[Bob Phillips]

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

 

[Greg B]

Thank you Bob

Greg

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