Hi Rob,

don't use a fix point like number of pages
and do something to a doc, which might
influence your fix point.

I wish, I could make this clearer :-(

Have a look at this one:

Sub TestXXX()
Dim lngPgs As Long ' number of pages
Dim lngPag As Long ' the page to go to
lngPgs = ActiveDocument.ComputeStatistics(wdStatisticPages)
If lngPgs Mod 2 <> 0 Then
  lngPgs = lngPgs - 1 ' odd number of pages
End If
For lngPag = lngPgs To 2 Step -2
  Selection.GoTo What:=wdGoToPage, _
  which:=wdGoToAbsolute, _
  Count:=lngPag
  ' now for moving the selection
  ' and deleting the first 10 lines
Next
End Sub

Assuming, that you want to delete the first
ten lines form every even numbered page.

If you proceed from the first page,
then the number of pages may change,
and affect our fix point.

If you start from the last page,
your fixpoint is zero,
and that never changes.

HTH