Sub AnotherWay()
  Dim aCell As Cell, oRng As Range, strBMName As String
  For Each aCell In Selection.Range.Cells
    If aCell.ColumnIndex = 1 Then
      Set oRng = aCell.Range
      oRng.End = oRng.End - 1
      strBMName = fcnValidateBMName(Trim(oRng.Text))  'needs Greg's function
      If Not ActiveDocument.Bookmarks.Exists(strBMName) Then
        ActiveDocument.Bookmarks.Add strBMName, oRng
      End If
    End If
  Next aCell
End Sub