VBA ошибка 1004 требуется объект

Question

Я новичок. Я создал макрос из множества примеров из сети. Требуется объект ошибки 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