rename sheets

[jrg24]

I have three worksbooks with 50+ sheets in each one. The first worksheet in each workbook contains a list of accounts with a balance next to it. the other sheets in the books contain the detail for each account that make up that balance. The detail sheets have generic names attached to each one, and I would like to change them to the account number. The worksheets are in the same order as the list on the first sheet. Anyone have any idea how I can rename these sheets quickly? These worksheets are the product of Insight reporting and until I find a better way to automate the data I will have to do this onj a monthly basis. Thanks for your help.

 

[cstimart]

Something like this?

Sub Rename_Sheets()
Dim i As Long

For i = 2 To Sheets.Count
    Sheets(i).Name = Sheets(1).Range("A" & i)
Next i
End Sub