3 worksheets. Named A, B, C. Is there a better way to move them then this?

Sub Macro1()
Sheets("A").Select
Sheets("A").Move After:=Sheets(2)
End Sub