Set Wpr = New Word.Application
 
With Wpr
 
      .Selection.GoTo what:=wdGoToBookmark, Name:="<Name>"
 
end with
 
' auch übersetzt:  Wpr.Selection.GoTo what:=wdGoToBookmark, Name:="<Name>"
'oder extrem lang Word.Application.Selection.GoTo what:=wdGoToBookmark, 
' Name:="<Name>"