Sub PalettesOpen() Palettes.Open ("C:\ProgramFiles\Corel\Graphics10\Custom\Palettes\Gray256.cpl")End Sub