Flytte rundt på ark rækkefølge (VBA)

Skriv arknavnene som liste, i A1 til A4 (i dit tilfælde), og kør Makroen.

Sub test()
    Dim r As Range
    For Each r In Sheets("Ark1").Cells(1).CurrentRegion.Columns(1).Cells
        Sheets(r.Value).Move after:=Sheets(Sheets.Count)
    Next
    Sheets("Ark1").Activate
End Sub

tak så mangler jeg bare at lave en ren Vba løsning, alså hvor arknavnene står i vba'en men du har givet mig et hint til løsningen.

Sub sortsheet()
s = Split("Ark3,Ark1,Ark2,Ark4", ",")
For i = 3 To 0 Step -1
Sheets(s(i)).Move Sheets(1)
Next
End Sub