I have changed the pallete in excel for the colours i want but i also need to xfer the palette over to word & powerpoint, i know this is a excel forum but does anyone know how to do this, a copy of the macro is below

Sub DefaultAktivColours()
'
'   Purpose:    Set The Colour so that they match the Aktiv Kapital Branding Colour Pallete
'   Author:     Gary Booker
'   Date:       10/04/2008
'
'   14/04/2008 - Added in the Green and Orange diminishing shades
'

    '   The top row of the standard colours
    ActiveWorkbook.Colors(53) = RGB(177, 166, 162)      '   Colour 1 - Grey
    ActiveWorkbook.Colors(52) = RGB(118, 101, 101)      '   Colour 2 - Taupe (Darker Grey)
    ActiveWorkbook.Colors(51) = RGB(72, 8, 73)          '   Colour 3 - Purple
    ActiveWorkbook.Colors(49) = RGB(162, 169, 0)        '   Colour 4 - Green
    ActiveWorkbook.Colors(11) = RGB(255, 114, 0)        '   Colour 5 - Orange
    
    '   Set the Green Shades
    ActiveWorkbook.Colors(14) = RGB(178, 186, 0)        ' Green 80%
    ActiveWorkbook.Colors(42) = RGB(194, 203, 0)        ' Green 60%
    ActiveWorkbook.Colors(8) = RGB(211, 220, 0)         ' Green 40%
    ActiveWorkbook.Colors(34) = RGB(227, 237, 0)        ' Green 20%
    
    '   Set the Orange Shades
    ActiveWorkbook.Colors(5) = RGB(255, 137, 0)         ' Orange 80%
    ActiveWorkbook.Colors(41) = RGB(255, 160, 0)        ' Orange 60%
    ActiveWorkbook.Colors(33) = RGB(255, 182, 0)        ' Orange 40%
    ActiveWorkbook.Colors(37) = RGB(255, 205, 0)        ' Orange 20%
    
    '   Chart Fills
    ActiveWorkbook.Colors(17) = RGB(162, 169, 0)        '   Colour 4 - Green
    ActiveWorkbook.Colors(18) = RGB(255, 114, 0)        '   Colour 5 - Orange
    ActiveWorkbook.Colors(21) = RGB(177, 166, 162)      '   Colour 1 - Grey
    ActiveWorkbook.Colors(20) = RGB(118, 101, 101)      '   Colour 2 - Taupe (Darker Grey)
    ActiveWorkbook.Colors(19) = RGB(72, 8, 73)          '   Colour 3 - Purple

    '   Chart Lines
    ActiveWorkbook.Colors(25) = RGB(162, 169, 0)        '   Colour 4 - Green
    ActiveWorkbook.Colors(26) = RGB(255, 114, 0)        '   Colour 5 - Orange
    ActiveWorkbook.Colors(29) = RGB(177, 166, 162)      '   Colour 1 - Grey
    ActiveWorkbook.Colors(28) = RGB(118, 101, 101)      '   Colour 2 - Taupe (Darker Grey)
    ActiveWorkbook.Colors(27) = RGB(72, 8, 73)          '   Colour 3 - Purple

    '   This is the Default background colour used for Graphs
    ActiveWorkbook.Colors(15) = RGB(255, 255, 255)
End Sub
Thanks

DJ