Private Sub Workbook_Open()
Dim Cell As Range
For Each Cell In Range("I:I")
If Not IsEmpty(Cell) Then
Select Case Cell.Value
Case 0: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 35
Case 1: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 53
Case 2: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 3
Case 3: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 1
Case 4: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 6
Case 5: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 20
Case 6: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 30
Case 7: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 4
Case 8: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 5
Case 9: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = 8
Case Else: Range(Cell.Offset(0, -8), Cell).Interior.ColorIndex = xlColorIndexAutomatic
End Select
End If
Next Cell
End Sub