ActiveSheet.copy
after:=ActiveWorkbook.Worksheets(ActiveWorkbook.Wo rksheets.Count)
..

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Annette" wrote in message
...
I am getting myself confused on how to do this, so I am asking instead.
How
do I programmically copy the active spreadsheet (sheet1) to the open
workbook ... into the last position on the workbook?