Hi,

I think I have an easy one but I'm not sure how to make it work. I want to have my macro sum data horizontally but I can't get it to work. The code below works great when I'm summing the columns vertically:

    Sheets("Summary").Select
    With ActiveSheet
.Cells(.Rows.Count, "D").End(xlUp).Offset(2, 0).FormulaR1C1 _
= "=sum(r2c:r[-1]c)"
End With
That code sums column D. What I'm looking to do is have the macro place a forumula in cell P2 that sums the data in cells D2 through O2. I'm not sure whta I'm doing wrong. Any thoughts?

Thanks

Eddie.