About Us

bob

Thanks Norman.
-----Original Message-----
Hi Bob,

Forgot to change:

Set Rng = WS.Range("A1", LastCell)

to

Set Rng = WS.Range("A2", LastCell)

to allow for the mentioned header!

---
Regards,
Norman

"Norman Jones" wrote in
message
...
Hi Bob,

With your names listed in column A , starting in A2 (to
allow for a
header),
try:

Sub AddSheets()
Dim LastCell As Range, Rng As Range, Cell As Range
Dim WS As Worksheet
Set WS = ActiveSheet
Set LastCell = WS.Cells(Rows.Count, "A").End(xlUp)
Set Rng = WS.Range("A1", LastCell)
For Each Cell In Rng
If Not IsEmpty(Cell) Then
Sheets.Add.Name = Cell.Value
End If
Next

End Sub

---
Regards,
Norman

"Bob" wrote in
message
...
Hello

From a group of cells in a worksheet I want to create
worksheets in the same workbook, each of which has the
name of the contents of the cells (all strings).

for example:
value in cell A1 is 'Ball Valve'
valve in cell A2 is 'Globe Valve'

I want to create 2 worksheets: one named 'Ball
Valve', the
other 'Globe Valve'.

The number of cells will vary as will the values. The
group will always start in cell A1.

I can add 2 worksheets, but they have the generic
names 'Sheet2' etc.

What is the best way of creating the worksheets and
renaming them?

.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using cell names across multiple worksheets	M.Boone	Excel Discussion (Misc queries)	4	October 8th 09 03:42 PM
Tab Names to Match Cell Values when Changed	Johnny	Excel Discussion (Misc queries)	8	August 20th 09 09:19 PM
Creating cell names from cell contents en masse	John[_26_]	Excel Worksheet Functions	1	May 15th 09 02:41 AM
tab names from cell values	cursednomore	Excel Discussion (Misc queries)	5	January 3rd 07 07:24 PM
apply cell names to formulas in multiple worksheets	BBurrows	Excel Worksheet Functions	4	July 1st 05 05:35 PM

Menu

About Us