Renaming multiple sheets in a workbook

[Closed]
Report
-
Posts
1320
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
October 8, 2021
-
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

Posts
1320
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
October 8, 2021
239
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.