Sum Column

[billandrew]

Not sure why this code would not work. The result is False.

Cells(1, 14) = Range("I" & Rows.Count).End(xlUp).Offset(1).FormulaR1C1 = "=sum(R2C:R[-1]C)"

It does work if I remove the cells(1,14) portion - however I am looking to place the result in a cell rather than at the end of the range.

If you could How can I place the sum in a MsgBox


Thanks

 

[Fluff]

How about

Dim rng As Range
Set rng = Range("C2", Range("C" & Rows.Count).End(xlUp))
Range("N1").Value = Evaluate("sum(" & rng.Address & ")")
MsgBox Evaluate("sum(" & rng.Address & ")")

 

[billandrew]

Works Perfect Fluff

Thanks Again

 

[Fluff]

Glad to help & thanks for the feedback