VBA Code einfügen

Sub Blätter_erstellen_neu()
Sheets("Vorgaben").Unprotect Password:="majacz"
Sheets("Mustermann_M").Unprotect Password:="majacz"
Dim Zelle As Range
With Sheets("Vorgaben")
For Each Zelle In .Range(.Cells(9, 2), .Cells(106, 2).End(xlUp)).SpecialCells( _
xlCellTypeConstants)
If Zelle.Value  "" Then
Sheets("Mustermann_M").Copy after:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = Zelle.Value
If Err = 0 Then
Range("A7").Select
With ActiveWindow
.FreezePanes = True
.DisplayGridlines = False
.DisplayHeadings = False
Range("D8").Select 'neu
ActiveSheet.Protect DrawingObjects:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End With
Else
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
On Error GoTo 0
Sheets("Mustermann_M").Protect DrawingObjects:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next
End With
'von mir
Application.DisplayAlerts = False
Sheets("Ende").Delete
Application.DisplayAlerts = True
Sheets("Vorgaben").Select
Range("C2").Select
End Sub