John,
To create a worksheet with a copy of a single worksheet, use code
like

ThisWorkbook.Worksheets("Sheet1").Copy

Then, do a Save As with the new filename:

ActiveWorkbook.SaveAs filename:="whatever.xls"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"JOHN SMITH" <NEW wrote in message
...
Hi,
I need to create a function that will copy a sheet
on my workbook to a new workbook

how do i open a save as window?

I am using win2000 and office 2000.

Regards,