Back

Sub Extract_sheet()
' Written by Barrie Davidson
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

Copyright ^© 2001 by Barrie R. Davidson
Added April 6, 2001