Summing cells with VBA

[Captain Smith]

Hi everyone.

What VBA will sum in the activecell the values found in row 2 of the same column through the cell above the activecell? For example, the activecell is D14, in D14 I want the sum of D2 through D13.

Thanks so much.

 

[Yogi Anand]

Hi Captain Smith:

Try ...

Sub yRngTosum()
    Set yRng = Range(ActiveCell.Offset(-1, 0), Cells(2, ActiveCell.Column))
    MsgBox "Sum = " & WorksheetFunction.Sum(yRng)
End Sub

 

[Captain Smith]

Thank you!

 

[Yogi Anand]

Hello Captain Smith:

You Are Welcome -- now let us keep EXCELing!