Can someone please help with this peice of code. I am trying to change the
tab color of the active sheet to either Red, Amber or Green based on the
input into cell I5 of my worksheet. Code as follows but it is not quite
right:

Private Sub iActiveCellI5_Change()
If ActiveCell.Range("I5") = "Green" Then
Sheets("1. Banking").Select
ActiveWorkbook.Sheets("1. Banking").Tab.ColorIndex = 10
Else
If ActiveCell.Range("I5") = "Amber" Then
ActiveWorkbook.Sheets("1. Banking").Tab.ColorIndex = 3
End If
If ActiveCell.Range("I5") = "Red" Then
ActiveWorkbook.Sheets("1. Banking").Tab.ColorIndex = 45
End If
End If
End Sub

Any help would be greatly appreciated....