Thread: Move a sheet to last sheet of wkbk

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

--
Regards,
Tom Ogilvy


"AFairRose" wrote:

> 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
>
>