Just another idea for your Select Case statement:

S = .value
If UCase(S) Like "CASE[123456]" Then
.Offset(0, 1).Resize(1, 7).Interior.ColorIndex = _
99109085 Mod (4 * Right(S, 1) + 13)
End If

HTH
Dana DeLouis


Select Case LCase(.Value)
Case "Case1": .Offset(0, 1).Resize(1,
7).Interior.ColorIndex
= 3
Case "Case2": .Offset(0, 1).Resize(1,
7).Interior.ColorIndex
= 5
Case "Case3": .Offset(0, 1).Resize(1,
7).Interior.ColorIndex
= 10
Case "Case4": .Offset(0, 1).Resize(1,
7).Interior.ColorIndex
= 19
Case "Case5": .Offset(0, 1).Resize(1,
7).Interior.ColorIndex
= 20
Case "Case6": .Offset(0, 1).Resize(1,
7).Interior.ColorIndex
= 34
End Select

<snip