Sub Test() Dim s As Shape Dim s1 As Shape Dim s2 As Shape Dim t As Text Dim f As TextFrame Dim d As Document Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, String$(1200, "Z")) Set s1 = d.ActiveLayer.CreateParagraphText(5, 5, 7, 7) Set s2 = d.ActiveLayer.CreateParagraphText(8, 8, 10, 10) Set t = s.Text ' Link frames together t.Frame.LinkTo s1 s1.Text.Frame.LinkTo s2 ' Go through each frame For Each f In t.Frames If f.IsLast Then f.SetColumns 3, True, 1, 0.3 Exit For End If Next fEnd Sub