<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> SumEm()
<SPAN style="color:#00007F">Dim</SPAN> Rng <SPAN style="color:#00007F">As</SPAN> Range
<SPAN style="color:#00007F">Set</SPAN> Rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
<SPAN style="color:#00007F">With</SPAN> Application.WorksheetFunction
[B1] = .Sum(Rng)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">Set</SPAN> Rng = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>
Puts the sum of column A into cell B1 of the active sheet.