My bad Max...I missed the part where you had thrown the list into Sheet2
instead of sheet1. This works just fine. Thanks

"Max" wrote:

It runs fine when tested here prior to posting

Pl ensure that the source list is really in a sheet named as: Sheet2
as per assumption stated

And in case it could be a line break problem
when you copy pasted the earlier sub,
here's another version w/o the line break to try:

Sub Add_NameWS()
'Add and name sheets using
' list in A1:A88 in Sheet2
For i = 1 To 88
Worksheets.Add.Name = _
Worksheets("Sheet2").Cells(i, 1).Value
Next
End Sub


Try it again, Mike ..
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Mike Armstrong" wrote:
Max,

It errors out at the Worksheets.Add.Name = Worksheets("Sheet2").Cells(i,
1).Value line with a subscript out of range error message