Get Addition of each Column in a sheet

[Ahmad Jalil Qarshi]

hi!

i hava a sheet. I don't know how many cells in each column of the sheet are
filled with numeric data. I just want to Get the addition of each column of
sheet using VBA.

Any Ideas,

Thanks in advance.

Ahmad Jalil Qarshi

 

[R.VENKATARAMAN]

assume the data is from A1 down
the code will be something like this

==========
MsgBox WorksheetFunction.Sum(Range(Range("a1"), Range("a1").End(xlDown)))

======================