automatischer Seitenumbruch

ich habe folgenden Sub bekommen, welcher wenn sich der 2. Buchstabe in der 2. Spalte ändert einen Seitenwechsel einfügt.
Dieser hat in Office 97 funktioniert, in Office XP läuft er nicht mehr:
Fehler: anwendungs- oder objektorientierter Fehler bei Zeile:
ActiveSheet ....

Kann mir jemand helfen?

Sub Seitenumbruch()
Dim startbuchstabe As String
Dim c As Range

startbuchstabe = "A"

For Each c In Selection

If Mid(c.Value, 2, 1) <> startbuchstabe Then
ActiveSheet.HPageBreaks.Add before:=c
startbuchstabe = Mid(c.Value, 2, 1)
End If
Next

End Sub