How to copy only a single worksheet to another workbook using vba

by

I have 1 WorkBook(“SOURCE”) that contains around 20 Sheets. I want to copy only 1 particular sheet to another Workbook(“TARGET”) using Excel VBA. Please note that the “TARGET” Workbook doen’t exist yet. It should be created at runtime.

Another Way

Sub Sample()
    '~~> Change Sheet1 to the relevant sheet
    '~~> This will create a new workbook with the relevant sheet
    ThisWorkbook.Sheets("Sheet1").Copy

    '~~> Save the new workbook
    ActiveWorkbook.SaveAs "C:\Target.xlsx", FileFormat:=51
End Sub

This will automatically create a new workbook called Target.xlsx with the relevant sheet

More Related Contents:

  1. delete Autofilter Field resullt using the header Name
  2. Somehow it’s not copying [closed]
  3. VBA macro that search for file in multiple subfolders
  4. So, I have 6 “master” files to then divide into 40 separate files
  5. Getting ScriptControl to work with Excel 2010 x64
  6. Application.Match gives type mismatch
  7. Count and Highlight keywords within phrases
  8. Transpose a range in VBA
  9. Protecting cells in Excel but allow these to be modified by VBA script
  10. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  11. Detect merged cells in VBA Excel with MergeArea
  12. Using VBA code, how to export Excel worksheets as image in Excel 2003?
  13. Parse HTML content in VBA
  14. How to add a DocumentProperty to CustomDocumentProperties in Excel?
  15. VBA EXCEL To Prompt User Response to Select Folder and Return the Path as String Variable [duplicate]
  16. Should I turn .CutCopyMode back on before exiting my sub procedure?
  17. Determine whether user is adding or deleting rows
  18. How to use VBA SaveAs without closing calling workbook?
  19. Removing the password from a VBA project
  20. Removing special characters VBA Excel
  21. Excel VBA Formula German/French/Italian/Russian/Dutch/Foreign Function
  22. Iterate over slicer via VBA and select a single item each time
  23. Return a range from A1 to the true last used cell
  24. How to add items to a combobox in a form in excel VBA?
  25. How can I open this VBA workbook faster?
  26. How can I automate Save as dialog box in IE11 using VBA?
  27. How do I avoid run-time error when a worksheet is protected in MS-Excel?
  28. Open Google Chrome from VBA/Excel
  29. Excel VBA Run-time error 1004 when inserting or value formula into cell
  30. How to wait until ActiveWorkbook.RefreshAll finishes before executing more code

Leave a Comment