Copy sheet and get resulting sheet object?

by 
Dim sht 

With ActiveWorkbook
   .Sheets("Sheet1").Copy After:= .Sheets("Sheet2")
   Set sht = .Sheets(.Sheets("Sheet2").Index + 1)
End With

More Related Contents:

  1. excel vba compare & copy worksheets from 2 excel files
  2. VBA code doesn’t run when cell is changed by a formula
  3. How to add a named sheet at the end of all Excel sheets?
  4. Reducing WithEvent declarations and subs with VBA and ActiveX
  5. How can I loop through a subset of worksheets?
  6. Excel VBA For Each Worksheet Loop
  7. Save excel file multiple times with file names in another workbook.
  8. Function to convert column number to letter?
  9. Read/Parse text file line by line in VBA
  10. How do I find the last column with data?
  11. Excel VBA: Answer gets “stuck”
  12. Save multiple sheets to .pdf
  13. filter out multiple criteria using excel vba
  14. Excel VBA autofilter all but three
  15. Cells.Find() Raises “Runtime Error 91: Object Variable or With Block Not Set”
  16. Excel VBA code to copy a specific string to clipboard
  17. How to import a table from web page (with “div class”) to excel?
  18. Excel VBA – Range.Copy transpose paste
  19. Excel tab sheet names vs. Visual Basic sheet names
  20. How to use FindWindow to find a visible or invisible window with a partial name in VBA
  21. How do you get a Range to return its Name?
  22. Refreshing all the pivot tables in my excel workbook with a macro
  23. Countif With Multiple OR Criteria
  24. Vlookup to copy color of a cell
  25. every possible combination of the contents of 2 columns in excel
  26. How to delete rows in Excel based on criteria using VBA?
  27. Macro to export MS Word tables to Excel sheets
  28. VBA WinHTTP to download file from password proteced https website
  29. Access files with long paths (over 260)
  30. Concatenate multiple ranges using vba

Leave a Comment