格式化形状的Excel VBA脚本

Question

我正在制作一张有两张纸的互动地图。第一张是带有线形的地图表，第二张是数据库。

我想根据基于数据库中的值的线形添加着色功能。

我已经制定了一个更简单的承诺计划，可以在这里找到：http://www.speedyshare.com/gWJwd/plan.xlsm

以下是我尝试过的代码：

If Target.Address = Sheets("Data").Range("$C$4:$C$9") Then
    Select Case Target.Value
        Case Is = 10
            Sheets("Map").Shapes(cl.Value).Line.ForeColor.RGB = vbRed
        Case Is = 20
            Sheets("Map").Shapes(cl.Value).Line.ForeColor.RGB = vbBlue
        Case Is = 30
            Sheets("Map").Shapes(cl.Value).Line.ForeColor.RGB = vbGreen
    End Select
End If