Sorting WorkSheets

[j_Southern]

I generate 12 worksheets by code, each named by reference to a list on a work sheet. as follows:-

With Sheets("Names")
  For j = 0 To 11
     WsName = .Range("AB1").Offset(j, 0).Value
       Worksheets.Add.Name = WsName
  Next j
  End With

I need to have these worksheets appear in the workbook in the same order as the list which they do not with the coding above.
How should I do this
John