Renaming multiple sheets in a workbook

Closed
rev - May 19, 2017 at 03:19 AM
vcoolio
Posts
1347
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
June 10, 2022
- May 19, 2017 at 08:13 AM
Hello,
I have workbook with more than 50 sheets.. I would like to rename all sheets with workbook name. Something like workbook.sheet1,workbook.sheet 2 ....I just want the name of the workbook in the sheets name.. kindly help me to rename the sheets.. I tried manual method and vb codes but it is not working out. I am new to vb macros and thus I was not successful. Please help me to solve this issue.



1 reply

vcoolio
Posts
1347
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
June 10, 2022
249
May 19, 2017 at 08:13 AM
Hello Rev,

Have a look at the following link:-

https://ccm.net/forum/affich-419062-excel-macro-rename-all-worksheets

If you want to add the workbook name, you'll only need to adjust this line:-
Sheets(iSheetCount).Name = iSheetCount


For example, if your workbook is named Fred, then alter the line as follows:-
Sheets(iSheetCount).Name = "Fred, Sheet" & iSheetCount


Your worksheet tabs should then look like this:-

"Fred, Sheet1", "Fred, Sheet2" etc......

Cheerio,
vcoolio.
0