Conditional formatting VBA not working

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

I'm a little lost as to the layout you are using..
you pass source as a range and then have source.range("E15")?

I'm thinking the best way to do this would be with a worksheet change event with code like:

Private Sub Worksheet_Change(Byval target as ref)
If target.row = 15 then
Application.EnableEvents = False
    With target.offset(1,0).interior
    Select Case source.Value
        Case "AMD SAC"
            .ColorIndex = 3 'Red
        Case "T1 Transfers"
            .ColorIndex = 5 'Blue
        Case "T2A Arrivals"
            .ColorIndex = 6 'Yellow
        Case "T3IB Main"
            .ColorIndex = 4 'Green
        Case "T4 SAC"
            .ColorIndex = 7 'Magenta
        Case "T5 WBU"
            .ColorIndex = 8
        Case "Holiday"
            .ColorIndex = 9
    End Select
    end with
    Application.EnableEvents = True
End If
End Sub

Needs to be in the sheet object within your vba project.

Guys,
I've taken the above suggestions but still no go. It's in the code for sheet1 and I've altered it as per TMShucks post so that it now reads as below. Thanks for the help so far.

Private Sub Projects(ByVal Source As Range)
Dim Source As Range
Set Source = Range("E15")
Dim Bar As Range
Set 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

Tried that AlphaFrog but still no go. I tried doing that and then also removing the "Dim Bar as Range" so that the code now reads as below but as I mentioned still no go.
Thanks in advance

Private Sub Projects(ByVal Source As Range, Bar As Range)

Set Source = Range("E15")
Set 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

Did you try the code I posted? there doesn't seem anything wrong with the last bit of code you put. In what way doesn't it work? Are you expecting this to run "automatically" when you change a cell?

Sorry Guys,
Yes I should have been more specific (slaps own wrist).

AlphaFrog, I've placed the code in the sheet1 and so expected it to work when I enter one of the values in E15. However, when I do enter one of the values nothing happens other than that value being entered in E16.

Yudlugar, when I run your code I am expecting it to update automatically and when I tried your code I get: Compile error, User defined type not defined amd it highlights the very first row: Private Sub Worksheet_Change(ByVal target As ref)

Many thanks

Oooooops should be byval target as range.... sorry!

Guys, thanks VERY much for sorting this out for me. Both solutions now working so both please take a bow