Move active sheet to end of current workbook


Sub Move_To_End()

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

End Sub


Move active sheet to front of current workbook

   

Sub Move_To_Front()

    ActiveSheet.Move Before: = ActiveWorkbook.Sheets(1)

End Sub