Hi, put this in a module and give it a keyboard shortcut so you ca
activate it, its just a macro recording of selecting cell A2 the
clicking on the sum symbol on the standard toolbar and then draggin
all the cells you want to calculate.

hope this helps
Simon
Sub cellcalculate()
Range("A2").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C:R[-1]C[36])"
Range("A2").Select
End Su

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=27142