Ozoned

Range("z65536").End(xlUp).Select
MsgBox Evaluate("=sum(z9:" & ActiveCell.Address & ")")

Tony
-----Original Message-----
Have a sheet with approx 3500 names and varying data .
column A is
dates, J thru Z is dollars. I can easily sort and find
the last dated
entry - Range("A5000").Select
Selection.End(xlUp).Select

but how can I get column Z in"that" row to be part of a
range to sum?
something like =sum( Z9 : thenewZcell ).

I'm trying to find the remaining amount between the
entire Z9 to
Z3500, and what has been collected to date (Z9 to Z??)
and show that
difference in Z3.

Thnx
.