try
Sub sumrow()
mr = ActiveCell.Row
x = Cells(mr, Columns.Count).End(xlToLeft).Column + 1
Cells(mr, x) = Application.Sum(Range(Cells(mr, "a"), Cells(mr, x - 1)))
End Sub

--
Don Guillett
SalesAid Software

"derekc " wrote in message
...
i have already have something written out to subtract cells from
eachother in a row until it hits a neg. number. then it stops on that
last pos number. i want to have the number left over from the
subtractions to be added at the end of the row in the first emtpy
cell.
so if a1 - b1 - c2 = 23 i want 23 in the first empty cell in that row,
and so it will do it for each row. i have the subtraction part down,
just need something to tell it to add whats left over into the first
emtpy cell on the row. if any info needed just reply. thanks


---
Message posted from http://www.ExcelForum.com/