Maybe you can just...

total = application.sum(Worksheets("Error Codes").Range("T10:T45"))



Pb21 wrote:

I want to sum the values in a range and have the following code:

Dim Total As Integer

For Each c In Worksheets("Error Codes").Range("T10:T45").Cells

Total = Total + c.Value

Next

ErrorCount = Total

I added a watch to c and the looping works or at least appears to yet
it wont extract a value despite the column t10 onwards having values.

Regards in advance for assistance.

Peter

--
Pb21
------------------------------------------------------------------------
Pb21's Profile: http://www.excelforum.com/member.php...o&userid=15398
View this thread: http://www.excelforum.com/showthread...hreadid=270110

--

Dave Peterson