[vba]doc.Bookmarks.Add Name:=strBM, Range:=strText [/vba]will indeed give error 13, as Range requires a range object and strText is a string.

the error 91 comes from the fact r is Dim'd but never Set. Where is it skipping:
Set r = doc.Bookmarks(strBM).Range

this is not in the Sub