Changing the Colour of an Auto Shape (Line)

Thanks bhofsetz and K Dales for the response, that works a treat. Bhofsetz, the Case statement does make a lot more sense. Have you any idea how I would make the values of "Color" non-case sensitive? That is, to work with BLUE or Blue or blue or bLue etc without listing them all seperately in the Case statement? Thanks in advance.