Colour Palette Change

The company I work for has its own set of standard colours to be used in all documents. I've set the colours up in the colour palette using the below sub (x's are actually numbers):

Sub SetCompanyColours()
ActiveWorkbook.Colors(9) = RGB(x, x, x)
ActiveWorkbook.Colors(46) = RGB(x, x, x)
ActiveWorkbook.Colors(12) = RGB(x, x, x)
ActiveWorkbook.Colors(10) = RGB(x, x, x)
ActiveWorkbook.Colors(14) = RGB(x, x, x)
ActiveWorkbook.Colors(5) = RGB(x, x, x)
ActiveWorkbook.Colors(47) = RGB(x, x, x)
ActiveWorkbook.Colors(16) = RGB(x, x, x)
End Sub

I want to distribute this round to my workmates. Problem is that, if they set the colours in the workbook using the above sub, the workbook colours will be all wrong when clients open them on their computer. How do I get around this. I have thought about programmatically copying the sub into the open event of the activeworkbook. I've looked through this website, http://www.cpearson.com/excel/vbe.htm, but it doesn't explain how to copy code to the workbook events part of a vba project, only to a new module