Returning Range Total in VBA

[JimPNicholls]

Excel2k

Hi

I've set a range in vba (ActiveCell.Range("A1:E1")) and
I'd like to find out the value of this range (The
equivilant of =Sum("A1":"E1") CAn anyone help?

 

[Frank Kabel]

Hi
try
dim rng
set rng = range("A1:E1")
msgbox applicatuion.worksheetfunction.sum(rng)

 

[JE McGimpsey]

One way:

Dim dSum As Double
dSum = Application.Sum(ActiveCell.Resize(1, 5))

 

[Soo Cheon Jheong]

Hi,

Sub TEST_1()
MsgBox Application.Sum([A1:E1])
End Sub


Sub TEST_2()
MsgBox [SUM(A1:E1)]
End Sub



--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--