Excel Macro Help

[Bring_Back_Shantz]

Hey everyone.
Usually I'm pretty handy with Excel, but I'm having some major difficulty.

Basically I have to creat a bunch of copies of a worksheet in the same workbook and I'd like to name each worksheet from a list of names (I have to do a bunch of checklists for a bunch of wells and I don't want to have to create and name each sheet individually as there are a LOT of them).

I'm trying to use a macro to do this, but if there is a way to do it without a macro that'd be cool to.

Hope someone can help.
Thanks

[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

[Bring_Back_Shantz]

Thanks Halifax, but I managed to work it all out.
in a much more automated and elegant way.