Easy Macro Question

[Balfin]

Hi,

I'm trying to get a macro that will, among other things, create a copy of the active worksheet and place it at the end of the workbook. I tried recording this, but all I get is ActiveSheet.Copy After=Sheets (4), which is fine if I only have 4 sheets. However, I need to runs this a lot of times in the same file to so the end keeps moving further down. Is there a to do this?

Thanks.

 

[al_b_cnu]

Hi,

Try:

ActiveSheet.Copy After=Sheets (Sheets.Count)


[Edit]

Actually it should be:
ActiveSheet.Copy After:=Sheets (Sheets.Count)

 

[Von Pookie]

Replace the '4' with Sheets.Count.

 

[Balfin]

Thanks for the help. I rigged it up to work with ActiveSheet.Copy After:=ActiveSheet since the last sheet will be the one I'm copying, but it's nice to know a better way to do it.