Taking worksheet names from cells in another worksheet

jkpanic 

The Sheet called "Training Matrix" in the attached contains the following Change Event code on its Module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Dim ws As Worksheet
Dim Cel As Range
Dim i As Long

On Error GoTo Skip
If Not Intersect(Target, Range("SheetNames")) Is Nothing Then
    Application.EnableEvents = False
    If Target <> "" Then
        i = Application.Match(Target.Value, Range("SheetNames"), 0)
        i = i + 1
        On Error Resume Next
        Set ws = Worksheets(i)
        On Error GoTo 0
        On Error GoTo Skip
        If Not ws Is Nothing Then
            Worksheets(i).Name = Target.Value
        Else
            Set ws = Worksheets.Add(after:=Worksheets(i - 1))
            ws.Name = Target.Value
        End If
    End If
End If
Application.EnableEvents = True
Exit Sub
Skip:
Application.Undo
Application.EnableEvents = True
MsgBox Err.Description, vbExclamation, Err.Number
End Sub

The sheets as per the names in A2:A11 which is a Named Range called "SheetNames" already exist in the file and if you change any name in A2:A11, the corresponding Sheet will also be renamed.

See if this is what you were trying to achieve.