Add worksheets loop

[ojhawkins]

Hi all,

I am trying to create a loop to add multiple worksheets

I want to add a new sheet for each company (A2:A14)

This is what I have so far, not sure how far off I am. Can anyone help?
I am also wanting to add the sheets after the current last sheet if possible.

Sub addnewsheet()

x = 2
Do Until Cells(x, 1) <> ""

Sheets.Add.Name = Worksheets("securities").Cells(x, 1).Value & ".ax"

x = x + 1

Loop

End Sub

 

[mvptomlinson]

You're close.. but try

Sub addnewsheet()
x = 2
Do Until [B][COLOR=Red]Worksheets("securities")[/COLOR].[/B]Cells(x, 1) [COLOR=Red][B]=[/B][/COLOR] ""
    Sheets.Add.Name = Worksheets("securities").Cells(x, 1).Value & ".ax"
    x = x + 1
Loop
End Sub

 

[ojhawkins]

edit***

I have this below.

Just need to work out the loop

x = 2

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = Worksheets("securities").Cells(x, 1).Value & ".AX"

 

[ojhawkins]

mvptomlinson you are a Genius! Thanks heaps