Help - Creating Worksheets

[ectoid]

I am writing a macro to create multiple worksheets based on a column of values. While I can get the macro to create and name a worksheet based on a specified cell I can't figure out how to do it iteratively down the complete list. I'm not sure if I'm suppose to use a Do...Loop with Offset ranges or what.
Any suggestions would be much appreciated. Thanks, Eric.

 

[martinee]

Assuming your list is consecutive down column A, starting in Cell A2.

Sub tt()
Dim c As Range

Set c = Sheets(1).Range("A2")

Do While c.Value <> ""
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = c.Value
    Set c = c.Offset(1, 0)
Loop

End Sub

HTH

 

[ectoid]

Duuuuudddeeee!!
See, I knew there was a Loop and an Offset!
****, you got that back fast...I've only been working with this stuff for a couple days and I thank you greatly!!