Using a list of names to delete bookmarks in a Word Doc

[m_in_spain]

OK, here we go! This one (appears to me) to be more difficult.

I have a dynamic list with no blanks which i create in Column BY, like this: (thanks to this forum for parts of this)
step one deete any current Nameslike this:

Sub DeleteNames()  Dim Cell As Range
  On Error Resume Next
  For Each Cell In Range("BY3:BY100")
    Cell.Name.Delete
  Next
  On Error GoTo 0
End Sub

Next I populate the Names from the new list like this:

Sub makenames()
    Application.DisplayAlerts = False
    Range("BY3:BZ100").Select
   Selection.CreateNames Top:=False, Left:=False, Bottom:=False, Right:= _
        True
    Application.DisplayAlerts = True
End Sub

Now my question.

I want to take each of those "Names" and search through my Word document for the same name and delete it, if it exists.

I can do it manually by using:

docWord.bookmarks("XXXxxxXXX").Select
       .Selection.Delete

what i want to do is loop through all the names and replace the XXXxxxXXX

As ever, any ideas will be looked at, tried out but ALL will be thanked.

 

[Macropod]

Dim Cell As Range
For Each Cell In Range("BY3:BY100")
  docWord.bookmarks(Cell.Name).Delete
Next

 

[m_in_spain]

Dim Cell As Range
For Each Cell In Range("BY3:BY100")
  docWord.bookmarks(Cell.Name).Delete
Next

Thanks, that seems to produce an error box: Error No: 5941; There is a problem

 

[Macropod]

Presumably, that's because one or more or the bookmarks don't exist. You can work around that with 'On Error Resume Next' or with:
If docWord.Bookmarks.Exists(Cell.Name) Then docWord.Bookmarks(Cell.Name).Delete

 

[m_in_spain]

Many thanks.
That works and deletes the text i have within the same name bookmark in word.
It seems to paste the name of my bookmark into the word document where it removed the original text.

 

[Macropod]

It seems to paste the name of my bookmark into the word document where it removed the original text.

The code I posted doesn't insert the names into the document; they were already there, at the bookmarked locations. If you want to delete those, too, use:

With docWord
  If .Bookmarks.Exists(Cell.Name) Then
    With .Bookmarks(Cell.Name)
      .Range.Text = vbNullString
      .Delete
    End With
  End If
End With