Mass rename of worksheets/Workbooks

[Patrick Molloy]

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