Excel 2000 copy sheet with custom palette

[smeyer56]

I am working in a Excel2000 spreadsheet. We have created a button that copies a worksheet from our template to a new file. The problem I am having is that our template has a custom palette and the new file doesn't copy that.

Here is how we are copying the sheet.

Sub Picture17_Click()
Dim Sheetname
Dim Filename

Filename = ActiveWorkbook.Name

Sheetname = ActiveSheet.Name
Sheets(Sheetname).Select
Sheets(Sheetname).Copy

Application.Dialogs(xlDialogSaveAs).Show
Application.Workbooks(Filename).Activate

End Sub

I have about 4 rows that use the custom colors and would like to modify this macro to use them.

Any ideas?

Thanks
Steve

 

[SkipVought]

Hi,

Copy a color palette to another workbook

Open the workbook that contains the color palette you want to copy.
Switch to the workbook that you want to copy the color palette to.
On the Tools menu, click Options, and then click the Color tab.
In the Copy colors from box, click the workbook that contains the color palette you want to copy, and then click OK.

Use your macro recorder.

Skip,

_{Have you heard that the roundest knight at King Arthur's round table was...
Sir Cumference!}