Excel VisualBasic Script

Sub SimpleWorksheetMovement() 
    ThisWorkbook.Worksheets(3).Copy 
End Sub