Bernie,

Try the following:

X = "=SUM(R[" & -4 & "]C[1]:R[" & -1 & "]C[1])"
Range("B5").FormulaR1C1 = X


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"bw" wrote in message
...
Chip,

Your suggestion makes the formula in B5 ""=SUM(B1:B4)". I want the
formula in B5 to
be "=SUM(C1:C4)".

I guess I mistated the problem on my first question...

Bernie



On Sun, 4 Apr 2004 16:29:37 -0700, "Chip Pearson"
wrote:
Bernie,

Perhaps I'm missing something, but just use something like

Range("B5").FormulaR1C1 = x



"bw" wrote in message
...
Sub R1C1Test()
Range("C5").Select
x = "=SUM(R[" & -4 & "]C:R[" & -1 & "]C)"
Selection.FormulaR1C1 = x
End Sub

This puts the formula "=SUM(C1:C4)" in Cell C5.

How do I modify this to put the same formula in Cell B5? A little
education please...

Thanks,
Bernie