Replacing Conditional Formatting With A Macro

I've got a lovely little spreadsheet which looks like a more complicated version of this:

CaseResult1Pass2Fail3N/A4Pass (mark-ups)5Pass

I have conditional formatting on each cell of column A (titled Case) which looks at the next door cell in column B (titled Result), and if it turns out Pass, it colours the cell in A green. If it's fail, it colours the cell red, and so on.

So my spreadsheet, after formatting, looks like this:

CaseResult1Pass2Fail3N/A4Pass (mark-ups)5Pass

However, with the "Pass (mark-ups)" option, I've run out of conditions allowed (since I'm on 2003 excel). I can colour it in the same colour as other conditions, using the OR function, but I'd rather have it a separate colour.

I've got this macro here (which I've picked off the internet somewhere):


Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A1:A5000")) Is Nothing Then
Select Case Target
Case "Passed"
icolor = 4