Reply to thread

Message: [QUOTE="Damien McBain, post: 6016913"] Try this: Sub colour() For Each c In Selection Select Case c Case 1 c.Interior.Color = vbGreen c.Font.Color = vbWhite Case 2 c.Interior.Color = vbBlue c.Font.Color = vbWhite Case 3 c.Interior.Color = vbYellow c.Font.Color = vbBlack Case 4 c.Interior.Color = RGB(255, 153, 0) c.Font.Color = vbBlack Case "D" c.Interior.Color = vbRed c.Font.Color = vbWhite Case Else c.Interior.Color = vbBlack c.Font.Color = vbWhite MsgBox "You have a selected cell with an invalid value", , "Wake up dude" End Select Next c End Sub [/QUOTE]