Makro läuft nicht !!!! Hilfeeeee !!!

Sub Zeilen_einfügen1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Select
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(lngZeile, 1) = 1000 Or Cells(lngZeile, 1) = 2000 Or Cells(lngZeile, 1) = 3000 Or Cells(lngZeile, 1) = 4000 Or Cells(lngZeile, 1) = 5000 Or Cells(lngZeile, 1) = 6000 Or Cells(lngZeile, 1) = 7000 Or Cells(lngZeile, 1) = 8000 Or Cells(lngZeile, 1) = 9000 Or Cells(lngZeile, 1) = 10000 Then
With Rows(lngZeile + 1)
.Insert Shift:=xlShiftDown
End With
End If
Next
Application.ScreenUpdating = True
Next
End Sub