Count four colours

Hello all ,

I am wanting to get a function or macro that can count the four different colours
in this sheet .

But only count when the heading has the letter P in it from col F onwards . .

Thanks .

Thanks for that , i have put the macro in this book2 .

Its used for my very large 450,000 row main sheet .
thanks .

Thanks Alan , initially i thought there was a problem where i had the four colours listed in my order of cols.
But the macro works perfectly with green and lite blue swapped around in your macro . I will work on getting brown , green , lite blue , dark blue in order a little later .
Over all really happy , thanks so much .