Referring to a column

[Hru48]

Hey all,

I have a worksheet which has two columns to it and I need a third t
act as a totals column for all the values in columns a and b.

I'm doing it as part of a sub in vba and I need to know if there is
short way of reffering to column as I keep ending up with pages of:

Range("G3").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Columns("E:G").Select
Range("G4").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Columns("E:G").Select
Range("G5").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"

Many thanks

 

[vezerid]

Use these two snippets in your code. The dim statement comes after Sub.
The for...next statement goes wherever necessary. Modify
range("G2:G100") as necessary.

dim c as range

for each c in range("G2:G1000").cells
c.formular1c1="=SUM(RC[-2]:RC[-1])"
next c

HTH
Kostis Vezerides