You could use +

with activesheet
msgbox .range("a1").value + .range("b1").value + .range("c1").value
end with

But I'd use that cheap that application.sum.

with activesheet
msgbox application.sum(.range("a1:c1"))
end with

Coolboy55 wrote:

Is there a simple sum function in VBA? I want to add the contents of
several cells together without using a loop or a cheap "=SUM(...)"
assigned string value. Does it exist?

--
Coolboy55
------------------------------------------------------------------------
Coolboy55's Profile: http://www.excelforum.com/member.php...o&userid=26508
View this thread: http://www.excelforum.com/showthread...hreadid=400896

--

Dave Peterson