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

HTH
--
AP

"Greg" a écrit dans le message de
...
How do I write a macro to move the activesheet to the end of the active
workbook.


Thanks

Greg