Save individual sheets from workbook.

Posted by Ron on March 27, 2001 2:37 PM

We have an excel workbook that contains over 50 sheets. I would like to add an option to a command
bar menu that I've created that would allow the user
to save a specific sheet from the workbook and if this is possible, still leave the original workbook open after the save. Any ideas would be appreciated.

Posted by Barrie Davidson on March 27, 2001 2:50 PM

Try this code

Dim Sheetname
Dim Filename

Filename = ActiveWorkbook.Name
Sheetname = ActiveSheet.Name
Sheets(Sheetname).Select
Sheets(Sheetname).Copy
Application.Dialogs(xlDialogSaveAs).Show
Application.Workbooks(Filename).Activate