Excel VisualBasic Script

Sub SimpleWorksheetMovement() 
    ' copy the third worksheet before the 2nd worksheet 
    ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) 
End Sub