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
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
-
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment