Rename multiple worksheets in Excel

Donnchadh

Help, I'm stuck

If I have a list in Excel, how do I create multiple worksheets, with each sheet coresponding to one entry in the list? For example I have a list of numbers say, 15523, 16798, 16982... and I want worksheets called 15523, 16798, 16892...

I hope that makes sense:rolleyes:

Lobelia Overhill

No it didn't :P

AFAIK you have to rename each worksheet yourself ...

Tom Dunne

I'd say the only way you could do it is via a VBA script.

--amadeus--

Write a vba macro.

Sub rename()
'selects the sheet that has your list in it
Sheets("home").Select

Range("a1").Select
'selects the first cell of your list

Do Until ActiveCell.Value = ""
'loops until it finds an empty cell

varname = ActiveCell.Value
varaddy = ActiveCell.Address
'variables for teh name of teh new sheet and teh return address of the list

Sheets.Add
'adds teh new sheet
ActiveSheet.Name = varname
'renames it
Sheets("home").Select
'back to main sheet

Range(varaddy).Select
'back to correct location in list

ActiveCell.Offset(1, 0).Select
'moves to next entry

Loop
'loops!

End Sub

It's rough but it works! Change the "home" sheet name to teh sheet name that has your list in it and teh A1 reference to teh first cell in your list and when you run it it'll be grand.

Donnchadh

That's great, exactly what I needed. Thanks