1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
Sub reset_colour_palette()
ActiveWorkbook.Colors = Array(0, 16777215, 255, 65280, 16711680, 65535, 16711935, _
16776960, 128, 32768, 8388608, 32896, 8388736, 8421376, _
12632256, 8421504, 16751001, 6697881, 13434879, 16777164, _
6684774, 8421631, 13395456, 16764108, 8388608, 16711935, _
65535, 16776960, 8388736, 128, 8421376, 16711680, 16763904, _
16777164, 13434828, 10092543, 16764057, 13408767, 16751052, _
10079487, 16737843, 13421619, 52377, 52479, 39423, 26367, _
10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, _
6697881, 10040115, 3355443)
End Sub
|