Indsæt linieskift

Med denne makro, forsøger jeg at indsætte tvungen linieskift i en rapport

Dim Ordregiver As Range
   
For Each Ordregiver In Range("A26", Range("A26").End(xlDown)).Cells
   
    If Ordregiver Like "100*" Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    End If
   
    Next

I kolonne A er der enten et Ordregivernummer eller intet. Liniskrif skal ske for hver ordregiver i rapporten ... hvorfor virker det ikke ???