Thanks, that almost works. It copies the cells but NOT the header/footer stuff.
Peter


>Something like:
>with oExcel
>.Activesheet.Cells.Select
>.Selection.Copy
>.ActiveWorkbook.Worksheets.add(,.ActiveWorkbook.sheets(1))
>xlFormats=-4122
>.Selection.PasteSpecial(xlFormats)
>.....
>
>>Hi
>>
>>I created an Excel workbook with a single sheet which I have formatted to my liking.
>>(Header/footer, cells bold, etc.)
>>
>>No I have a procedure which uses this template and adds worksheets as needed. They are unformatted. Is there a way to copy the formatting from sheet1 to the new sheet2?
>>
>>
>>Thanks
>>
>>
>>Peter