Attribute VB_Name = "testsheetedit1"
Sub ƒeƒXƒg()

    Worksheets.Add Before:=Worksheets(1)
    Worksheets.Add After:=Worksheets("Sheet2"), count:=2

End Sub