Pages

Friday, October 21, 2011

Copy Selected Worksheets from a workbook to new workbook

If you want to copy selected worksheets from a workbook and save them in a new workbook.

Here is the code-

Sub copy_selected_sheets_to_new_workbook_and_save()
Dim wkbname As String
wkbname = "ashish"
' ADD SHEET NAMES here
ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).copy
ActiveWorkbook.Sheets(1).Range("a1").Select
ActiveWorkbook.SaveAs "C:\Documents and Settings\achamanlalko\Desktop\abc docs\" & wkbname & ".xlsx"
ActiveWorkbook.Close
End Sub

No comments:

Post a Comment