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