Create A Custom Sort Order

I am trying to create custom sort list. It works below when I define range as A1:A79.

Sub SortWS2()
Dim SortOrder As Variant
Dim sheetsorder As Range
Dim Ndx As Long
Application. ScreenUpdating = False
With Worksheets("Sort Order").Range("A1:A79")
For Ndx = .Cells.Count To 1 Step -1
Worksheets(.Cells(Ndx).Value).Move before:=Worksheets(1)
Next Ndx
End With
Application.ScreenUpdating = True
End Sub

I have created a dynamic range called sheetsorder. If I revise my code it does not work.

Sub SortWS2()................