Nfi

Case 15 myColor = "Gray-25%" IndexNum = 15 Case 16 myColor = "Gray-50%" IndexNum = 16 Case 33 myColor = "Sky Blue" IndexNum = 33 Case 34 myColor = "Light Turquoise" IndexNum = 34 Case 35 myColor = "Light Green" IndexNum = 35 Case 36 myColor = "Light Yellow" IndexNum = 36 Case 37 myColor = "Pale Blue" IndexNum = 37 Case 38 myColor = "Rose" IndexNum = 38 Case 39 myColor = "Lavender" IndexNum = 39 Case 40 myColor = "Tan" IndexNum = 40 Case 41 myColor = "Light Blue" IndexNum = 41 Case 42 myColor = "Aqua" IndexNum = 42 Case 43 myColor = "Lime" IndexNum = 43 Case 44 myColor = "Gold" IndexNum = 44 Case 45 myColor = "Light Orange" IndexNum = 45 Case 46 myColor = "Orange" IndexNum = 46 Case 47 myColor = "Blue-Gray" IndexNum = 47 Case 48 myColor = "Gray-40%" IndexNum = 48 Case 49 myColor = "Dark Teal" IndexNum = 49

Case 50 myColor IndexNum = Case 51 myColor = " IndexNum = Case 52 myColor IndexNum = Case 53 myColor = " IndexNum = Case 54 myColor = " IndexNum = Case 55 myColor = " IndexNum = Case 56 myColor IndexNum = Case Else myColor = " End Select

'if the index number is desired or if the cell color was not 'returned return the index number If ColorIndex = True Or _ myColor = "Custom color CellColor = IndexNum Else

CellColor = myColor End If

End Function

Sea Green"

0 0

Post a comment