hi all,

the following conditional formating works, I need offset the formating column H.


[vba]Private Sub worksheet_selectionchange(ByVal target As Excel.Range)
Dim rnArea As Range
Dim rnCell As Range
Set rnArea = Range("e57:e90")
For Each rnCell In rnArea
With rnCell
If Not IsError(.Value) Then
Select Case .Value
Case "1"
.Interior.ColorIndex = 38
Case "2"
.Interior.ColorIndex = 40
Case "3"
.Interior.ColorIndex = 36
Case "4"
.Interior.ColorIndex = 35
Case "5"
.Interior.ColorIndex = 34
Case "6"
.Interior.ColorIndex = 15
Case "7"
.Interior.ColorIndex = 39
Case "8"
.Interior.ColorIndex = 7
Case "9"
.Interior.ColorIndex = 44
Case "10"
.Interior.ColorIndex = 6
Case "11"
.Interior.ColorIndex = 4
Case "12"
.Interior.ColorIndex = 8
Case "13"
.Interior.ColorIndex = 3
Case "14"
.Interior.ColorIndex = 46
Case "15"
.Interior.ColorIndex = 43

End Select
End If
End With
Next
Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]


any ideas?

thanks