Objekt ünterstüzt diese Eigenschaft oder Methode n

Sub Neuer_Schichtplan()
Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", _
"Oktober", "November", "Dezember")).Unprotect
If MsgBox("Wollen Sie die Schichten einfügen ? Die alten Schichtpläne werden gelöscht.",  _
vbQuestion + vbYesNo, _
" Nachfrage Schichten einfügen !") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
For i = 1 To 12
For j = 3 To 156
If Sheets(i).Cells(j, 1)  "" Then
Workbook_SheetChange Sheets(i), Cells(j, 2)
End If
Next j
Next i
Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", _
"Oktober", "November", "Dezember")).Protect
Application.ScreenUpdating = True
End Sub