Потрібна помилка 1004 об'єкта VBA

Я новий учасник. Я створив макрос з багатьох прикладів з мережі. Потрібна помилка виконання об'єкта 1004. Я також хочу створити чек, щоб уникнути дублювання аркушів

Sub SACHINAddWorksheetsFromSelection()

Dim c As Range
Application.ScreenUpdating = False
For Each c In Sheets("Master").Range("A2:A50")
    sName = Trim(c.Text)
    If Len(sName) > 0 Then
    Sheets("Template").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = sName


    End If
Next c

CurSheet.Activate
Application.ScreenUpdating = True
End Sub