Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HOW DO I COPY AND RENAME A WORKBOOK LINKED TO OTHER WORKBOOKS | Excel Discussion (Misc queries) | |||
Mass add of a sheet to multiple workbooks | Excel Discussion (Misc queries) | |||
Mass Change Across Many WorkBOOKS | Excel Discussion (Misc queries) | |||
Mass rename of worksheets/Workbooks | Excel Programming | |||
Macro to perform mass header change on 100 worksheets | Excel Programming |