I like to keep the discussions in the newsgroups.

You'll usually get a faster response and lots of people will check the solution
and suggest alternatives.

But for that to work, I think you're going to have to post the current versions
of both functions and tell how they're invoked. Do you put the formula in cell
on a worksheet--or what?



Simon Lloyd wrote:

Dave,

If i step thru the whole process (F8) when it has finished with the
Count By Color and moves on to the cell B6 and starts to use the
cntbycolor it reads the first 3 lines and then starts the Count By
Color function again returning a value of 0, i can post or send the
excel file to you if you wish with a short explanation.

simon

Dim Rng1 As Range
Application.Volatile True
Rng1 = Range("D14:AI491")
For Each Rng1 In InRange.Cells
If Rng1.Value = "#N/A" Then
'do nothing
Else
If IsNumber = True Then
CntByColor = CntByColor - _
(Rng.Font.ColorIndex = WhatColorIndex)
Else
CntByColor = CntByColor - _
(Rng.Interior.ColorIndex = WhatColorIndex)
End If
End If

--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=276337

--

Dave Peterson