Copy Worksheet (2000)

Topic

New Reply

I would like to create a macro and assign a button to it so that when it is run the current worksheet is copied to the end of the worksheets in the current workbook (as selecting Edit>Move or Copy>Move to End). I’ve created a macro but it will only copy “Sheet 1”. I need it to do this for the active sheet regardless of sheet name and move it to the end of the worksheets regardless of how many. I’ve looked at the code in VB Editor, but I’m not familiar at all with VB code to know where to start. Suggestions or if someone could point me in the right direction would be appreciated.

Reply | Quote

Replies

Try:

    ActiveSheet.Move After:=Sheets(Sheets.Count)

Reply | Quote

Thanks! That seems to be working great!

Reply | Quote