There are quicker (that is, quick 'n dirty) ways, but this is guaranteed to
work:
Dim myRange As Range
' get the range of the cell in row 2, column 3
Set myRange = ActiveDocument.Tables(1).Cell(2, 3).Range
' avoid including the cell marker
myRange.MoveEnd unit:=wdCharacter, Count:=-1
' insert the bookmark
ActiveDocument.Bookmarks.Add Name:="bkmk1", Range:=myRange
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.