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

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

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

Ahmad Jalil Qarshi wrote in message
...
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