Joseph,

If the 231 sheets are all the sheets that are in the workbook:

MsgBox Evaluate("=Sum('" & Worksheets(1).Name & ":" &
Worksheets(Worksheets.Count).Name & "'!B2)")

Otherwise, you will need to change how the formula is structured, or do a
loop....

HTH,
Bernie
MS Excel MVP

"Joseph" wrote in message
...

Hi all,

I need to be able to sum one cell (B2) in 231 sheets programmatically.
Any ideas?

cheers


--
Joseph


------------------------------------------------------------------------
Joseph's Profile:
http://www.excelforum.com/member.php...fo&userid=5637
View this thread: http://www.excelforum.com/showthread...hreadid=264258