Moving sheets

[Greg]

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

 

[JulieD]

Hi Greg

you could try something like this

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

Cheers
JulieD

 

[Greg]

Thanks Julie

Once I worked out how to put into my code. It works perfect

Greg

 

[JulieD]

thanks for the feedback

 

[Greg]

I think it did Julie it has not shown up

Thanks again

Greg