If .Range.Information(wdWithInTable) = True Then Set Rng = CCtrl.Range With Rng .Bookmarks.Add CCtrl.Title, Rng End With End If End With