Sub Test() Dim s As Shape Dim s1 As Shape Dim d As Document Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, String$(400, "T")) Set s1 = d.ActiveLayer.CreateParagraphText(6, 6, 8, 8) Set t = s.Text ' Link the frames together t.Frame.LinkTo s1 ' Display frames count MsgBox t.Frames.CountEnd Sub