Hi Wespa,
I don't know why. Like so many things things,
it should work, but doesn't.
Here comes a workaround:
Sub Test445()
' next bookmark
On Error GoTo finish
Dim r As Range
Selection.Collapse direction:=wdCollapseEnd
Set r = Selection.Range
If r.start = r.End Then
  r.start = r.start + 1
End If
r.End = ActiveDocument.Range.End
r.Bookmarks(1).Select
Exit Sub
finish:
MsgBox "no more bookmarks"
End Sub
' ---
Sub Test446()
' previous bookmark
On Error GoTo finish
Dim r As Range
Selection.Collapse direction:=wdCollapseStart
Set r = Selection.Range
r.start = 0
r.Bookmarks(r.Bookmarks.Count).Select
Exit Sub
finish:
MsgBox "no more bookmarks"
End Sub
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/