Laufzeitfehler 1004 im Makro/Tab kopieren

Private Sub CommandButton1_Click()
Dim x As Object
Dim neu As String
Dim mldg$, title$
Dim ergebnis%, stil%
neu = Range("A1").Value
'InputBox("Bitte geben Sie den Namen der neuen Tabelle ein:")
If neu = ("") Then
Exit Sub
End If
For Each x In ActiveWorkbook.Sheets
If x.Name = neu Then
mldg = "Blattname existiert schon!"
stil = vbCritical + vbOKOnly
title = "A C H T U N G ! ! !"
ergebnis = MsgBox(mldg, stil, title)
Exit Sub
End If
Next x
ActiveSheet.Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = neu
End Sub