[HalifaxDrunk]

Not sure if you pasting your list into this would be time consuming but try this:

Sub AddEm()

Dim aryNames As Variant
Dim lngOffset As Long
Dim lngLoop As Long

aryNames = Array("A02", "A08", "A11", "A13", "A14", "A15", "A21", "A22", "A28", "A28P", "A33", "NA")

lngOffset = 2 - LBound(aryNames)

Sheets.Add Count:=13 - Sheets.Count, after:=Sheets(Sheets.Count)

For lngLoop = LBound(aryNames) To UBound(aryNames)
Sheets(lngLoop + lngOffset). Name = aryNames(lngLoop)
Next

End Sub