Config. Hoja de excel vba

Necesito aplicar esta macro para todas las hoja

Sub config_todas_las_hojas()
For Each h In Sheets
    ActiveWindow.View = xlPageBreakPreview
    h.ResetAllPageBreaks
    h.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Next h
End Sub

arroja error en ésta línea

h.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

"Subíndice fuera de intervalo", ¿qué ajuste falta?