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
[email protected]
