PageBreak mach Probs?...Wer kann mir helfen

Sub SeitenwechselPruefen()
Dim wks1 As Worksheet, Reihe As Integer
Set wks1 = ActiveSheet
With wks1
'Entfernen eines ggf. vorhandene Seitenwechsels in Reihe 65
If .Rows(65).PageBreak = xlPageBreakManual Then
.Rows(65).PageBreak = xlPageBreakNone
End If
'Seitenumbruch in Zeilen 95 bis 65 überprüfen
For Reihe = 65 To 92
If .Rows(Reihe).PageBreak = xlPageBreakAutomatic Then
.Rows(65).PageBreak = xlPageBreakManual
Exit For
End If
Next Reihe
End With
End Sub