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, 5, 5, String$(750, "Z")) Set s1 = d.ActiveLayer.CreateParagraphText(5, 5, 8, 8) Set s2 = d.ActiveLayer.CreateParagraphText(8, 8, 10, 10) Set t = s.Text ' Link the frames together t.Frame.LinkTo s1 s1.Text.Frame.LinkTo s2 ' Get the first frame Set f = t.Frames(1) ' Set the columns f.SetColumns 3, False, Array(1, 0.3, 1.4, 0.3, 1.5) MsgBox "Column 1 Width: " & f.ColumnWidth(1) & vbCr & _ "Column 2 Width: " & f.ColumnWidth(2) & vbCr & _ "Column 3 Width: " & f.ColumnWidth(3)End Sub