『3つ以上の条件付書式』（Ｌｉｍｅ）

はじめまして。質問です。


全セルを対象として、数値として"1"を入れるとセルの色が赤色に、
"2"を入れると青色に…

と言ったように3色以上を設定するにはどうしたらよいのでしょうか。

ご教授ください。

バージョンは2003でＯＳはXPです
----
 過去ログ検索：条件付き書式　３つ以上
http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%E6%9D%A1%E4%BB%B6%E4%BB%98%E3%81%8D%E6%9B%B8%E5%BC%8F%E3%80%80%EF%BC%93%E3%81%A4%E4%BB%A5%E4%B8%8A&perpage=10&attr=&order=@uri+STRD&clip=-1&navi=0
 （こぎつね）
----
過去ログ検索をしていませんでした。
お手数をおかけしまして申し訳ございません・・・
(Lime)
----
Private Sub Worksheet_Change(ByVal Target As Range) '色つける
 Dim colr As Integer
    Select Case Target.Value

            Case "1"
                colr = 3 '好きな色
            Case "2"
                colr = 6 '々
            Case "3"
                colr = 5 '々
            Case "4"
                colr = 33 '々
            Case "5"
                colr = 22 '々
            Case Else
                colr = xlNone
        End Select
        Target.Interior.ColorIndex = colr
 End Sub
(初心者)