More than 3 formatting conditions - select case?

Hello again!

My next problem - I have 5 formatting conditions that I need to add in my macro and have just recently found out that I can't have more than 3 in my version of Excel - DOH.

Anyway, some research has indicated that you can use something called select case to get round this? Hopefully someone can help please!

I need to colour the range as follows:

Range("H2:M2").Select
    Range(Selection, Selection.End(xlDown)).Select

When P2= 1, 2, 3 or 5 then different colours will apply (1 per number) to the above range. If P2=4 then the following range needs to be used:

Range("H2:I2,L2:M2").Select
    Range(Selection, Selection.End(xlDown)).Select

And a different colour is used.

Is that enough info for someone to provide me with the correct code please?

Thanks!

Helen