sum a range in VBA

[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

 

[Gary''s Student]

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

 

[Nigel]

lSum = Application.WorksheetFunction.Sum(rRange)

 

[Dave Peterson]

lsum = application.sum(rrange)

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

empty cells won't bother the =sum()

 

[Striker]

works fine

Thanks