sum of a column

[Gregfox]

Hi, When I run this I get a #NAME in I2. I would like to know what I'm doing wrong... Thanks!
BTW I there an easer way to do this?

Sub SumOfColumn()
'
'
'
Dim WithDraw As String  'named cell is WithDraw_2018
WithDraw = "WithDraw_2018"
   Sheets("sheet2").Select
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=+SUM(R[1]C:WithDraw)"
    Selection.NumberFormat = "$#,##0_);[Red]($#,##0)"
'
End Sub

 

[Logit]

.
What is it you are attempting to do ? I understand you are wanting to place a formula in A1, but I don't understand the remainder of your code.

 

[Michael M]

maybe this

WithDraw = Range("withDraw").Address(0, 0)
With Sheets("sheet2").Range("I2")
   .Formula = "=SUM(C1:" & WithDraw & ")"
   .NumberFormat = "$#,##0_);[Red]($#,##0)"
End With

 

[Gregfox]

This is a snip-it of a larger code, I wanted to put a single variable at the top of he code, so that when the year changes instead of changing 20 or 30 iterations in the code I could just change the variable.
Thanks

 

[Gregfox]

This is a snip-it of a larger code, I wanted to put a single variable at the top of he code, so that when the year changes instead of changing 20 or 30 iterations in the code I could just change the variable.
Thanks

 

[Michael M]

Does the code provided not work ???
If this is a piece of a lerger code you should provide all of the code. It's very difficult to give you a solution if we only get part of the story !

 

[Gregfox]

Thanks the code works, but I really wanted to know why the code I provided didn't work.

 

[Michael M]

The code didn't work because you needed to specify the cell address, not the name of the cell required !
you also asked

BTW I there an easer way to do this?

which is why I provided the code.

 

[Gregfox]

Many Thanks