Table named after first cell

gmaxey · #1 05-15-2019, 06:19 AM

Well, the solution provided by Macropod does not bookmark the table with the content of the first cell. You are wasting a lot of other people's time by not being clear on what you want.

Code:

Sub Demo()
Dim lngIndex As Long
Dim oTbl As Table
  For lngIndex = 2 To ActiveDocument.Tables.Count
    Set oTbl = ActiveDocument.Tables(lngIndex)
    With oTbl
       .Range.Bookmarks.Add Replace(Split(.Cell(1, 1).Range.Text, vbCr)(0), " ", "_"), .Range
    End With
  Next lngIndex
End Sub

macropod · #2 05-15-2019, 04:07 PM

Quote:

Originally Posted by gmaxey

Well, the solution provided by Macropod does not bookmark the table with the content of the first cell.

Given that bookmarks cannot contain spaces (which the OP subsequently clarified) or paragraph breaks (which your code doesn't handle at all), my code goes as close as is possible. I do agree, though, that the specifications were lacking.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Use of named ranges based on cell content	Intruder	Excel	12	02-25-2019 09:42 AM
save selected worksheets, named by cell value	rossmortimore	Excel	1	12-27-2018 01:56 PM
Code to find a named (bookmarked?) table, replicate a row or table, and delete a specified table.	kevinbradley57	Word VBA	9	09-21-2017 04:58 PM
how do i use a named cell for each worksheet	cwkotch	Excel	3	11-03-2015 09:04 AM
Can't use a zero in a named cell	TechEd	Excel	2	10-16-2012 10:06 PM