View Single Post
  #19   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Bob Phillips
 
Posts: n/a
Default count colored cells?

post it to me.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"DKY" wrote in message
...

Bob Phillips Wrote:
Like this

'---------------------------------------------------------------------
Function ColorIndex(rng As Range, _
Optional text As Boolean = False) As Variant
'---------------------------------------------------------------------
Dim cell As Range, row As Range
Dim i As Long, j As Long
Dim iWhite As Long, iBlack As Long
Dim aryColours As Variant

Application.Volatile

If rng.Areas.Count 1 Then
ColorIndex = CVErr(xlErrValue)
Exit Function
End If



--

HTH

RP
(remove nothere from the email address if mailing direct)


"DKY" wrote in
message
...

I put it right after the line

Code:
--------------------
Function ColorIndex(rng As Range, _
Optional text As Boolean = False) As Variant
--------------------

Is that the right place to put it? I'm thinking not because the F9
isn't working.


--
DKY

------------------------------------------------------------------------
DKY's Profile:

http://www.excelforum.com/member.php...o&userid=14515
View this thread:

http://www.excelforum.com/showthread...hreadid=499846


Hi, I'm an idiot. I appologize, I didn't see your response until
today. I tried it and it doesn't work either. Is there a way I can
upload my file or something and maybe you can take a look at it?


--
DKY
------------------------------------------------------------------------
DKY's Profile:

http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=499846