VBA for Dynamic sheet name with auto update option based on a list of names

[mistersend]

I have a list of 4 (ACTUALLY 80, but simplified) students on Sheet1. I have made 4 sheets, 1 sheet for each student. I want to rename these 4 sheets on the basis of the name in the list, so that whenever I update the name list, the corresponding sheet-name changed automatically, without going to that sheet or manually running the macro again and again. I already have the following code in the workbook to hide the sheet which are not in use:

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "" Then
Sheet2.Visible = False
Else
Sheet2.Visible = True
End If
If [A2] = "" Then
Sheet3.Visible = False
Else
Sheet3.Visible = True
End If
If [A3] = "" Then
Sheet4.Visible = False
Else
Sheet4.Visible = True
End If
End Sub


I have the following code which can rename the sheet but only 1 sheet, not all:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set Target = Sheet1.Range("B2")
If Target = "" Then Exit Sub
Sheet2.Name = Left(Target, 31)
Exit Sub
End Sub


I don't know how to apply both the code simultaneously.
Please help, if anyone have any solution.

 

[mistersend]

can anyone help to combine these 3 code in one form

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set Target = Sheet1.Range("A1")
If Target = "" Then Exit Sub
Sheet2.Name = Left(Target, 31)
Exit Sub
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set Target = Sheet1.Range("A2")
If Target = "" Then Exit Sub
Sheet3.Name = Left(Target, 31)
Exit Sub
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set Target = Sheet1.Range("A3")
If Target = "" Then Exit Sub
Sheet4.Name = Left(Target, 31)
Exit Sub
End Sub

 

[mistersend]

Solved!
The solution can be found here...

VBA for dynamic sheets name + dynamic link + hide sheets based on a cell Value

Question 1 Solution for this question, ( 2020-05-28 22:13:09 Rajesh Kumar ) https://excel.tips.net/T002145_Dynamic_Worksheet_Tab_Names.html Question: ( Question 1 ) ......I have a list of 80 students. I have made 80 sheets, 1 sheet for 1 student. I want to rename these 80 sheets...

excelfox.com

 

[Fluff]

For future reference.
While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.