lastrow = worksheets("Sheet1").Cells(rows.count,4).End(xlup) .row
Userform1.Textbox1.Value = Application.Sum(worksheets("Sheet1").Range("D2")
_
.Resize(lastrow - 1,1))


Place in the appropriate event.

--
Regards,
Tom Ogilvy

"Pierre" wrote in message
...
Hi all,

I have a macro that open a form

The user fill an excel sheet with this form

So i have a growing number of lines in the excel sheet.

I just want to sum colum D from the second line up to the end
and display the total on the form each time a line is created on the excel
sheet

How can i do that?

regards,

Pierre