Option Explicit
Sub testme()
Dim NewSheets As Variant
Dim i As Long

NewSheets = Array("AllVolunteers", "Roofing", "Sidings")
For i = LBound(NewSheets) To UBound(NewSheets)
Sheets.Add after:=Sheets(1)
ActiveSheet.Name = NewSheets(i)
Next i
End Sub

You may want to change this:
For i = LBound(NewSheets) To UBound(NewSheets)
to
For i = uBound(NewSheets) To lBound(NewSheets) step -1

if the order of the new worksheets is important.

Linda wrote:

OOps I'm all set, please disregard my last e-mail. One other question
though, how do I add these after my Sheet one, these are placed before my
first sheet.

"Toppers" wrote:

Something like:

newsheets = Array("AllVolunteers", "Roofing", "Sidings")
For i = 1 To 3
Sheets.Add
ActiveSheet.Name = newsheets(i - 1)
Next i

HTH

"Linda" wrote:

I want to add additional sheets to my workbook with VBA. My workbook is
titled Habitat and I want to add the sheets titled "AllVolunteers",
"Roofing", "Siding". I have many more to add but if you can help me with
these, that would be great. I looked at my recorded macro code, but it isn't
working when I try to run it. Thank you

--

Dave Peterson