Without access to your building blocks - activedocument.tables (1) is the first table in the document, whereas you need to name the table so you can process it by name e.g.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Thanks for your reply, i changed the code to below, but get a run error 5941 now any ideas?


Sub TestCGBT()
Dim oTbl As Table
' TestCGBT Macro


Application.Templates("P:\Templates\CG Research Template.dotm"). _
BuildingBlockEntries("CG body text table").Insert Where:=Selection.Range, _
RichText:=True

Set oTbl = Selection.Tables(1)
oTbl.Cell(1, 1).Range.Select

Selection.SplitTable
Application.Templates("P:\Templates\CG Research Template.dotm"). _
BuildingBlockEntries("Figure 1: Title").Insert Where:=Selection.Range, _
RichText:=True
Selection.Delete Unit:=wdCharacter, Count:=1
Dialogs(wdDialogTableInsertTable).Show

End Sub