Ramesh - There are multiple ways to accomplish this. But since your request is to just sum the numbers for the given column, here is the snippet which is not production ready.
Dim oRange as Range Dim iTotal as Double iTotal = 0 For Each oRange In Application.Range ("A1:A10") iTotal = iTotal + oRange.Value Next MsgBox ("Total Value is : " + iTotal) Thank you, Dev On May 29, 9:47 am, Ramesh Katta <kr.sap...@gmail.com> wrote: > Hi Gurus, > > I am Ramesh, new to vba programs. I need a macro to calculate sum for > range of column. The should be displayed with MsgBox. > > For example: Column A has numbers 1,2,3,4,5,6,7,8,9,10................... > > I want to calculate the cells we entered and displayed on MsgBox. > > Thanks&Regards > Ramesh --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---