VB-Script und Excel Button

[rider]

Sub CommandButton1_Click()
   Dim Traegername As String
   Dim objBlatt As Object
   Dim strQuellBlatt As String
   strQuellBlatt = "Haupt"

On Error GoTo FEHLER
   Set objBlatt = ThisWorkbook.Sheets(strQuellBlatt)
   On Error GoTo 0

Traegername = Application.InputBox("Bitte geben Sie den Namen des neuen Trägers ein!", "Name", Traegername)
   If Traegername = "" Then Exit Sub

If Len(Traegername) > 31 Then
    MsgBox "Der Name ist zu lang, er darf nicht mehr als 31 Zeichen enthalten.", vbOKOnly + vbExclamation, "Schwerer Ausnahmefehler"
    Exit Sub
   End If

If Traegername Like "*[:&/?*[]*" Or Traegername Like "*]*" Then
    MsgBox "Im Namen ist ein ungültiges Zeichen enthalten. Folgende Zeichen sind nicht erlaubt: [ : \ & / ? * [ ] * ", vbOKOnly + vbExclamation, "Computerabsturz"
    Exit Sub
   End If

For Each objBlatt In ThisWorkbook.Sheets
        If objBlatt.name = Traegername Then
        MsgBox "Dieser Träger exsistiert bereits! Bitte nutzen Sie das vorhandene Arbeitsblatt!", vbOKOnly + vbExclamation, "Allgemeine Schutzverletzung"
        Exit Sub
    End If
Next

ThisWorkbook.Worksheets("Haupt").Copy After:=Worksheets("GfM")
   ActiveSheet.name = Traegername
   ActiveSheet.Cell("C", 2).Value

Set objBlatt = Nothing
Exit Sub

FEHLER:
MsgBox "Fehler: Das zu kopierende Blatt " & strQuellBlatt & " existiert nicht.", vbOKOnly + vbCritical, "Schwerer Verlust"
End Sub

Das mag  er übrigens gar nicht :
ThisWorkbook.Worksheets("Haupt").Copy After:=ThisWorkbook.Worksheets.Length-1
(auch mit -2).

Hab ich das "ActiveSheet.Cell ("C", 2).Value" jetzt an der richtigen Position? Er bringt mir da bei der Ausführung das dass Objekt die Ausführung nicht unterstützt.

MfG