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