Solved: Saving single page from multiple workbook

[Mike_H]

Hi

can any one advise please. We have a workbook that multiple worksheets and need to extract one worksheet and save it under a different name. Is this possible? I have looked all through menu's and help files but cannot seem to see it. We run Excel 2003

Cheers

Mike

[Bob Phillips]

Sub SaveSheet()

Worksheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="C:\dirname\mybook.xls"
ActiveWorkbook.Close
End Sub

[Mike_H]

Hi XLD Thanks for this Where to I copy this to?

[Bob Phillips]

I can't say,I don't know enough about your application.

[Mike_H]

it's ok I have sorted it, I wasn't sure where the code went. Thanks for your help

Mike