Renaming multiple sheets in a workbook

rev - May 19, 2017 at 03:19 AM - Latest reply: vcoolio 1159 Posts Thursday July 24, 2014Registration dateModeratorStatus March 28, 2018 Last seen
- 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.



See more 

1 reply

Reply to this topic
vcoolio 1159 Posts Thursday July 24, 2014Registration dateModeratorStatus March 28, 2018 Last seen - May 19, 2017 at 08:13 AM
0
Helpful
Hello Rev,

Have a look at the following link:-

http://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.
Respond to vcoolio