VBA - sum formula - to add one cell everytime.

[Ebraham]

Hi ,


i have the formula as e4+g4 in one column

i want when i run the macro the formula should add one column e4+g4+i4

the next time when i run it should enter the formula as e4+g4+i4+k4 in the activecell. and so on.....

 

[sheetspread]

If the formula is in cell A4:

Sub addnplus2colref()
Range("a4").Formula = Range("a4").Formula & "+" & Range(Mid(Range("a4").Formula, InStrRev(Range("a4").Formula, "+") + 1, 255)).Offset(0, 2).Address(0, 0)
End Sub

 

[Ebraham]

worked well!