The values I want for tab names are in row 1, not column B.
I want to create a tab for with the values in B1, C1, D1, E1, .... X1 [for
example]

Will your proposed code do that?


--
Thanks for your reply & assistance.
Jimbo213


"stanleydgromjr" wrote:


Jimbo213,

Try:


Code:
--------------------


Option Explicit
Sub add_sheets()
Dim c As Range
With ActiveSheet
For Each c In .Range("B1", .Range("B" & .Rows.Count).End(xlUp))
Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = c.Value
Next c
End With
End Sub


--------------------



Have a great day,
Stan


--
stanleydgromjr
------------------------------------------------------------------------
stanleydgromjr's Profile: http://www.thecodecage.com/forumz/member.php?userid=503
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=120419