More than 3 formatting conditions - select case?

Try the below link.. may be of help to you

http://www.excelforum.com/excel-gene...-than-3-a.html

If you manually enter the value in P then this code works fine

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim intColour As Integer
    
    If Target.Column = 16 And Target.Count = 1 Then
        Select Case Cells(Target.Row, 16).Value
            Case 1: intColour = 3
            Case 2: intColour = 8
            Case 3: intColour = 4
            Case 5: intColour = 46
            Case Else:    'do nothing
        End Select
    End If
    Set rng = ActiveSheet.Range(Cells(Target.Row, 8), Cells(Target.Row, 13))
      rng.Interior.ColorIndex = intColour
End Sub