Merged Cell over Page Break is not Displayed properly

[ArneG]

Perhaps:

Sub TblFormat()
Application.ScreenUpdating = FalseDim r As Long, x As Long, y As Long, z As Long
With ActiveDocument.Tables(1).Range
  y = .Characters.First.Information(wdActiveEndPageNumber)
  For x = 1 To .Cells.Count
    If .Cells(x).ColumnIndex = 1 Then
     z = .Cells(x).Range.Information(wdActiveEndPageNumber)
     If y = z Then r = x
    End If
    If y < z Then
      .Cells(r).Range.ParagraphFormat.PageBreakBefore = True
      r = x: y = y + 1: z = y
    End If
  Next
End With
Application.ScreenUpdating = True
End Sub

That works like a charm! And since this Sub pushes the whole "section" (roughly defined by column 1) to the next page is even more charming!

Thanks a lot. Its much appreciated!