You could use your macro recorder, the code will look something like
this

Sub Macro1()

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[1]C[6]:R[14]C[6])"
Sheets("Sheet1").Select
Range("A3").Select
End Sub


--
davesexcel


------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=539626