Just make sure none of the names in the range repeat each other; i.e., they
have to be unique names. Otherwise this code returns an error.

Dave
--
Brevity is the soul of wit.


"Gord Dibben" wrote:

This macro will do what you wish.

Sub Add_Sheets()
Dim rCell As Range
For Each rCell In ActiveSheet.Range("A1:A10")
'alternative.......... For Each rCell In Selection
With Worksheets.Add(after:=Worksheets(Worksheets.Count) )
.Name = rCell.Value
End With
Next rCell
End Sub


Gord Dibben MS Excel MVP

On Tue, 26 Sep 2006 12:42:01 -0700, BM wrote:

Is it possible to create multiple tabs each being named after a particular
cell.

For example:

a1 Apple
a2 Pear
a3 Grape
a4 Banana

Could I somehow select that group of cells and have tabs automatically
generated named, Apple, Pear, Grape, and Banana?

I have a rather large list and would like to automate the process if possible.

Thanks in advance!