Drag the third worksheet to the first sheet position
Sub Macro3() Sheets("Sheet3").Select Sheets("Sheet3").Move Before:=Sheets(1) End Sub