Application-defined or object-defined error
 

As the following example indicates, the R1C1 reference
style is used in .FormulaR1C1. The A1 reference style is
used with .Formula


'put numbers 2,4,6 in cell A1, A2 and A3
'get the sum in cell A4 and A5 with 2 difference
'reference styles
Sub test()
Range("A4").FormulaR1C1 = "=SUM(R1C1:R3C1)"

'error :
'Range("A4").FormulaR1C1 = "=SUM($A$1:$A$3)"

Range("A5").Formula = "=SUM($A$1:$A$3)"

End Sub


Examples from Microsoft online help:
Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"

Worksheets("Sheet1").Range("B1").FormulaR1C1 = "=SQRT
(R1C1)"


-----Original Message-----
hello everyone,

I am using VB 6.0 with SP5 on a win2k pro machine
with office 2k
installed.
The following code:

..Cells(RowNo, tCol).FormulaR1C1 = "=Sum(" & .Cells
(RowNo, tCol - 1).Address
& ":" & .Cells(RowNo, tCol - UBound(arrVehicles)).Address
& ")"

returns a "Application-defined or object-defined error"
1004.

how ever, when i went to debug mode and saw the values it
showed me

$F$20 = Sum($E$20:$C$20)

which is correct, but the error still appears.

wht I am trying to do here is adding up the previous 3
cell values to the
fourth one.
Can any one help me out?


.