Automatically rename a sheet based on a cell

Good evening,

Try to place this macro in ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range) 'if c6 is manually filled On Error Resume Next Sh.Name = Sh.[c6] End Sub Private Sub Workbook_SheetCalculate(ByVal Sh As Object) 'if c6 contains a formula On Error Resume Next Sh.Name = Sh.[c6] End Sub 

Best regards

Good evening
For a contributor to assist you, it would be advisable for you to provide an anonymized file

1) Go to https://www.cjoint.com/
2) Click on [Browse] to select your file
3) Scroll to the bottom of the page to click on [Create Cjoint link]
4) After a few seconds, the second page will appear, with the link
underlined in blue; select it and click "Copy"
5) Return to your discussion on commencamarche, and in your reply message, click "Paste".
Best regards

Hello,

That's exactly what I thought... Your question doesn't quite match your need (for example, it wasn't initially about duplicating the sheets; I assumed they were all already created).
I believe you have your "SEM" sheet that contains all the information. My idea is to:
- first, create a "Template" tab whose formulas work regardless of the value in cell C6;
- then duplicate that "Template" tab via a macro and give the appropriate name to each tab and fill in cell C6.

Here's my proposal: https://www.cjoint.com/c/FLhlmI3iMrJ
You just need to press the button to create all the tabs.

See you later.