Can I use a list to auto fill sheet tabs?

[kelly johnson]

Can I use a list to auto fill sheet tabs instead of naming them one at a time?

[#2]

Kelly-

Hope you're doing well.  Yes, this is possible but you'll need to use VBA:

Sub Test()

Dim Lrow As Integer
Dim intLp As Integer

Lrow = Sheets("MySheetNames").Cells(Rows.Count, "A").End(xlUp).Row

For intLp = 2 To Lrow
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(ActiveSheet.Name).Name = Sheets("MySheetNames").Range("A" & intLp)
Next intLp

End Sub

[#3]

Thank you I will attempt that after lunch. :)

[#4]

Getting error here

   Sheets(ActiveSheet.Name).Name = Sheets("MySheetNames").Range("A" & intLp)

[#5]

Did you name the worksheet with the names on it "MySheetNames"? If they are on another worksheet you will need to change this reference to the name of your worksheet.

[#6]

Yes, that was my first mistake. :) I stepped through it and have an error show up at that line.

[#7]

Well I'll do a compare, I copied yours and replaced mine and it worked, so thank you.

I'll checkout the difference when I got time, now I'm being pulled in a million directions. :)

Thank you again!