sum a range in VBA

  • Thread starter Thread starter Striker
  • Start date Start date
S

Striker

What is the proper way to find the sum of a range in VBA. Here is what I
have

Dim rRange as Range
Dim iLastRow as as long
Dim lSum as Long

lLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rRange = Range ("A1:A" & lLastRow)


'Now I want to Sum rRange as they are all numbers? How do I do it. Say I
want to add the value to a Variable called lSum?


Thanks
 
Sub striker()
Dim rRange As Range
Dim iLastRow As Long
Dim lSum As Long

lLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rRange = Range("A1:A" & lLastRow)
MsgBox (Application.WorksheetFunction.Sum(rRange))
End Sub
 
lsum = application.sum(rrange)

or
lsum = application.sum(range("a:a"))

empty cells won't bother the =sum()
 
Back
Top