I have a whole range of cells that require conditional formatting but for testing purposes have just the two. Cell E15 has a drop-down list which when one of the entries is selected, colours E16, the cell underneath it. The code for doing this is below. The issue is, it doesn't colour the cell below and it's probably some really daft mistake that I can't see.
Many thanks
ArtySin

Private Sub Projects(ByVal source As Range)

Dim source
'Source.Range ("E15,G15,I15,K15,M15,O15,Q15,S15,U15,W15")
source.Range ("E15")

Dim Bar
'Bar.Range ("E16,G16,I16,K16,M16,O16,Q16,S16,U16,W16")
Bar.Range ("E16")

If source <> 0 Then

    Application.EnableEvents = False
    Select Case source.Value
        Case "AMD SAC"
            Bar.Interior.ColorIndex = 3 'Red
        Case "T1 Transfers"
            Bar.Interior.ColorIndex = 5 'Blue
        Case "T2A Arrivals"
            Bar.Interior.ColorIndex = 6 'Yellow
        Case "T3IB Main"
            Bar.Interior.ColorIndex = 4 'Green
        Case "T4 SAC"
            Bar.Interior.ColorIndex = 7 'Magenta
        Case "T5 WBU"
            Bar.Interior.ColorIndex = 8
        Case "Holiday"
            Bar.Interior.ColorIndex = 9
    End Select
    Application.EnableEvents = True
End If
End Sub