Hi Greg

you could try something like this

dim i as long
i = sheets.count
sheets("sheet4").move after:=Sheets(i)

Cheers
JulieD

"Greg" wrote in message
...
Hi I am copying a worksheet from a book and what I am looking to have this
automatically to the end of the workbook.

How would I do this? I have used the manual macro builder and it gives a
code like

Sheets("Sheet4").Move After:=Sheets(5)

But my workbook will have continous added sheets


Thanks in advance

Greg