hay muchas maneras de hacerlo...
para mostrar la paleta (office 2000)
Application.CommandBars("Fill Color").Visible = True
si querés hacer tu propia paleta, acá te dejo algo que puede servirte...
aColorIndex = Array(1, 53, 52, 51, 49, 11, 55, 56, 9, 46, 12, 10, 14, 5, 47, 16, 3, 45, 43, 50, 42, 41, 13, 48, 7, 44, 6, 4, 8, 33, 54, 15, 38, 40, 36, 35, 34, 37, 39, 2)
aColorName = Array("Negro", "Marrón", "Verde oliva", "Verde oscuro", "Verde azulado oscuro", "Azul oscuro", "Añil", "Gris 80%", "Rojo oscuro", "Anaranjado", "Amarillo oscuro", "Verde", "Verde azulado", "Azul", "Azul grisáceo", "Gris 50%", "Rojo", "Anaranjado claro", "Verde lima", "Verde mar", "Aguamarina", "Azul claro", "Violeta", "Gris 40%", "Fucsia", "Oro", "Amarillo", "Verde vivo", "Turquesa", "Azul cielo", "Ciruela", "Gris 25%", "Rosa claro", "Canela", "Amarillo claro", "Verde claro", "Turquesa claro", "Azul pálido", "Lavanda", "Blanco")
'//RGB
r = Array(0, 152, 56, 0, 0, 0, 48, 48, 128, 255, 128, 0, 0, 0, 104, 128, 255, 255, 152, 48, 48, 48, 128, 152, 255, 255, 255, 0, 0, 0, 152, 192, 255, 255, 255, 208, 200, 152, 200, 255)
g = Array(0, 52, 52, 48, 52, 0, 52, 52, 0, 104, 128, 128, 128, 0, 104, 128, 0, 152, 204, 152, 204, 104, 0, 148, 0, 204, 255, 255, 255, 204, 52, 192, 156, 204, 255, 255, 255, 204, 152, 255)
b = Array(0, 0, 0, 0, 104, 128, 152, 48, 0, 0, 0, 0, 128, 255, 152, 128, 0, 0, 0, 96, 208, 255, 128, 152, 255, 0, 0, 0, 255, 255, 104, 192, 208, 152, 152, 208, 255, 255, 255, 255)
la implementación hacela a tu gusto....
Saludos desde Baires, JuanC