VBA to update worksheet name based on cells in another worksheet

[kelsyschmelsy]

I have a workbook with 10 tabs. The names are generic to allow the user to update in the cell immediately to the right when they submit the excel workbook. I am new to VBA and want to know how to write a macro that will only update the worksheet tabs with Initiative 3/4/5/6/etc since Instructions/Project Official/Project Superstar are locked.

the names of the worksheets are listed below:

1. Instructions [do not want macro to change this name]
2. Project Official [do not want macro to change this name]
3. Project Superstar [do not want macro to change this name]
4. Initiative 3
5. Initiative 4
6. Initiative 5
7. Initiative 6
8. Initiative 7
9. Initiative 8
10. Initiative 9

The instructions tab includes a table starting in A1 with the names of all initiatives like this. The instructions tab also dictates the names of the initiatives and consequently, the workbooks. Is it possible to write VBA to change the names of the worksheet?:

	A
1	Instructions
2	Project Official
3	Project Superstar
4	Initiative 3
5	Initiative 4
6	Initiative 5
7	Initiative 6
8	Initiative 7
9	Initiative 8
10	Initiative 9

 

[DanteAmor]

Try this

Sub update_worksheet_name()
  Dim sh As Worksheet, i As Long
  Set sh = Sheets("Instructions")
  For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
    If i < Sheets.Count Then
      Sheets(i).Name = sh.Range("A" & i).Value
    End If
  Next
End Sub