Wish to Convert Named Colors to Shape Color

During importation of data (via VBA macros) I need to create shapes in specific colors as defined by pre-generated data. These colors are generated at textual colors eg color imported as "Green", "Red", "Black" etc.

The shapes (rectangles, ellipses, text) are easily created but previous methods by settings colors has been:

Select Case Color
Case "Black"
ActiveShape.Fill.UniformColor.RGBAssign 0, 0, 0
Case "Blue"
ActiveShape.Fill.UniformColor.RGBAssign 0, 0, 255
Case "Red"
ActiveShape.Fill.UniformColor.RGBAssign 255, 0, 0
|
|
(and so on)
End Select

This method was ok when 2 colors were initially introduced but has become to cumbersome with greater number of colors being used and also having to know colors prior for inclusion to above method (so macro can be updated to accommodate new color).

Is there a methodology to utilise the "color" directly. I have tried several ways but with no success.

I look forward to any help that may come this way.

Best Regards,
Denis