I finally have access to the full report (5,400+ rows of data). Most o
the data is unimportant to me except for "Column D". Each cell i
column D is in the following format...

Column D
0H:8M
9H:39M
14H:46M ... and so on.

So all these cells are formatted as [hh]"H":mm"M
(Format=Cells=Number tab=Custom)

Adding these cells is "no problem". The obstacle is that there are
different color cells within column D. I was able to get the exact RG
shade or color (I don't know if this could help).

Color.........R.....G.....B
Green.....204...255..204
Yellow....255...255..153
Red........255...128..128

What I want to accomplish is the following:
Select a range in column D of... let's say 200 rows and have code..
using something like an input box

'...Thanks Tom O
On error resume next
set rng = Application.InputBox( _
"Please select range with mouse", type:=8)
On Error goto 0
if not rng is nothing then

Add total time for Green, Yellow and Red cells... which brings anothe
factor to this whole operation... as time exceeds 24 hours Days ar
created. Therefore, adding 200 rows for example might yield a tota
green cells 4D:14H:46M... Its the 4D (D=days) that I didnt take int
consideration.


I would really be gratefull beyong belief, if anyone can come up with
solution.


Larry
VBA Amateu

--
Message posted from http://www.ExcelForum.com