Sub OpenFixedPalette() Palettes.OpenFixed (cdrUniform) 'you may also use Palettes.OpenFixed (7)End Sub