Help to create worksheets from a list

[Les]

Hi all, i have a list of names in the cells "AQ1:AQ10) and i would like to
add a sheet to the workbook for each name & would like to name that sheet
with the respective name with VBA.

Any help would be much appreciated.

 

[Sam Wilson]

Try This:

Sub sheets()

Dim ws As Worksheet
Dim x As Integer

Do Until IsEmpty(Worksheets("YOURSHEETNAME").Range("aq1").Offset(x, 0))
Set ws = Worksheets.Add
ws.Name = Worksheets("YOURSHEETNAME").Range("aq1").Offset(x, 0).Value
x = x + 1
Loop

End Sub

 

[Les]

100%, Thanks Sam
--
Les

Try This:

Sub sheets()

Dim ws As Worksheet
Dim x As Integer

Do Until IsEmpty(Worksheets("YOURSHEETNAME").Range("aq1").Offset(x, 0))
Set ws = Worksheets.Add
ws.Name = Worksheets("YOURSHEETNAME").Range("aq1").Offset(x, 0).Value
x = x + 1
Loop

End Sub