What would be more meaningful names?

Say you have a list of meaningful names in A1:A10 of Sheet1

Sub NameWS()
'name sheets with list in A1:A10 on first sheet
On Error Resume Next
For i = 1 To Worksheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next i
End Sub


Gord Dibben MS Excel MVP

On Mon, 15 Mar 2010 16:28:16 -0700 (PDT), fix me
wrote:

Hello,

Maybe you guys can help me. Is there a way rename the worksheet tabs
in an Excel file that I've already created?

Example...

I've already created a fancy Excel report using SSRS. The problem
is...SSRS has no way to rename the 10 worksheet tabs to more
meaningful names.

Any ideas?

Thanks!