Dim intResponse As Integer
Dim strBookmark As String
strBookmark = "temp"
intResponse = MsgBox("Are you sure you want to delete " _
& "the bookmark named """ & strBookmark & """ ", vbYesNo)
If intResponse = vbYes Then
If ActiveDocument.Bookmarks.Exists(Name:=strBookmark) _
And
ActiveDocument.Bookmarks.Item(1).Name = strBookmark Then
ActiveDocument.Bookmarks(1).Delete
End If
End If