Color Tab

Colour Palette

ActiveWorkbook.Colors(42) = RGB(50, 100, 150) 
ActiveWorkbook.ResetColors 

Copy Colours From

ActiveWorkbook.Colors = Workbooks("Book2.xls").Colors