Move a sheet to last sheet of wkbk

  • Thread starter Thread starter AFairRose
  • Start date Start date
A

AFairRose

Hi All,

I am trying to move sheets from seperate files having 1 to 10 sheet in
them to an established workbook. I want the sheets being moved to be
added at the end of the destination workbook's sheets. Thought this
would be quick and easy...

ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets.Select
Sheets.Move After:=Workbooks("X.xls").Sheets()

As always, any and all help appreciated.

Thanks
 
with Workbooks("OtherWorkbook.xls")
activesheet.copy After:=.Worksheets(.Worksheets.count)
End with
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Move or Copy Stopped Working? 0
Option Box on user from to update workbook 6
Error Message - Macro to Unlink MS Queries from Workbook 0
marco to move a sheet 1
Delete Sheets to the left 9
moving from sheet to sheet 5
Save each sheet of multi-sheet workbook as a single-sheet workbook 3
Macro to run on all files in a folder but exclude sheets with PivotTable, Pivot Charts and Charts 16

Back
Top