Karen

This code will do it (Beware it has no check for duplicates). Copy it into
either your workbook or your personal.xls in a standard module, select the
range with the sheet names and run the macro

Sub CreateAndNameSheets()
Dim myCell As Range
For Each myCell In Selection
Worksheets.Add
ActiveSheet.Name = myCell.Value
Next myCell
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"Karen" wrote in message
...
Hi, I'd like to create a tab for each entry from a list off a worksheet.
Is
this possible?