Mass rename of worksheets/Workbooks
 

here's a framework you can use...copy to a standard
module & change where appropriate

Sub AllThingsArePossible()

Dim wb As Workbook
Dim fn As String

ChDrive "H"
ChDir "H:\excel_demos"

' initialise
fn = Dir("*.xls")

Do While fn < ""

Set wb = Workbooks.Open(fn)

wb.Worksheets(1).Name = "newname"

wb.Save
wb.Close False

fn = Dir()

Loop



End Sub
-----Original Message-----
Hello Newsgroup Users and Gurus.


You're kind assistance please.

I'll be surprised if this can be achieved.
I have over 400 .xls file. Each workbook has one
worksheet.

I have to rename each workbook & each respective
worksheet. Is there anyway of renaming each worksheet on
mass or the easiest way of a completing this task.

All workbooks are in the same folder. I'm using Excel 98
on a WIN-NT machine.

Any help at all would be appreciated.

Kind regards
Paul

.