Macro AA_DefineColors

Different Versiond of EXCEL differ in their color maps. To ensure that the macros use the colors intended, the macro AA_DefineColors has to be invoked for each new workbook. It may have to be invoked again after a workbook has been converted to a different version of EXCEL.

Usage:

• Choose "Macro" for the "Tool" menu
• Run macro AA_DefineColors

Cauton:

AA_DefineColors will change the colores already applied in a workbook earlyer, since the color map is a property of the entire workbook

Sub AA_DefineColors()

'Defines the Color Palette used in the Excel Workbook
    
    ActiveWorkbook.Colors(1) = RGB(0, 0, 0)         'black'
    ActiveWorkbook.Colors(2) = RGB(255, 255, 255)   'white'
    ActiveWorkbook.Colors(3) = RGB(255, 0, 0)       'red'
    ActiveWorkbook.Colors(4) = RGB(255, 191, 0)     'yellow-orange'
    ActiveWorkbook.Colors(5) = RGB(255, 255, 63)    'yellow'
    ActiveWorkbook.Colors(6) = RGB(191, 255, 0)     'light green'
    ActiveWorkbook.Colors(7) = RGB(0, 255, 0)       'green'
    ActiveWorkbook.Colors(8) = RGB(0, 255, 127)     'turquois'
    ActiveWorkbook.Colors(9) = RGB(0, 255, 255)     'cyan'
    ActiveWorkbook.Colors(10) = RGB(0, 127, 255)    'blue'
    ActiveWorkbook.Colors(11) = RGB(0, 0, 255)      'dark blue'
    ActiveWorkbook.Colors(12) = RGB(127, 0, 255)    'purple'
    ActiveWorkbook.Colors(13) = RGB(255, 0, 255)    'magenta'
    ActiveWorkbook.Colors(14) = RGB(255, 0, 127)    'pink'
    ActiveWorkbook.Colors(15) = RGB(127, 127, 127)  'dark gray'
    ActiveWorkbook.Colors(16) = RGB(191, 191, 191)  'light gray'
    ActiveWorkbook.Colors(25) = RGB(0, 0, 125)      'very dark blue
    ActiveWorkbook.Colors(26) = RGB(0, 0, 204)      'dark blue
    ActiveWorkbook.Colors(27) = RGB(66, 66, 255)    'blue
    ActiveWorkbook.Colors(28) = RGB(153, 153, 255)  'light blue
    ActiveWorkbook.Colors(29) = RGB(220, 220, 255)  'very light blue
    
    ActiveWorkbook.Colors(33) = RGB(255, 0, 0)      'red
    ActiveWorkbook.Colors(34) = RGB(255, 85, 0)     'red-orange
    ActiveWorkbook.Colors(35) = RGB(255, 149, 0)    'orange
    ActiveWorkbook.Colors(36) = RGB(255, 191, 0)    'yellow-orange
    ActiveWorkbook.Colors(37) = RGB(255, 255, 0)    'yellow
    ActiveWorkbook.Colors(38) = RGB(170, 255, 0)    'yellow-green
    ActiveWorkbook.Colors(39) = RGB(42, 255, 0)     'green
    ActiveWorkbook.Colors(40) = RGB(0, 215, 107)    'blue-green
    ActiveWorkbook.Colors(41) = RGB(0, 149, 179)    'cyan
    ActiveWorkbook.Colors(42) = RGB(0, 85, 255)     'blue
    ActiveWorkbook.Colors(43) = RGB(0, 0, 255)      'dark blue

End Sub