Need help in generating WordArt in VBA

[johnske]

Any idea how to set the Text in WordArt to multiline in VBA code?

Use & vbNewLine & wherever a new line's needed, as in this example...
[VBA]
Sub MakeWordArt()

Application.ScreenUpdating = False

'insert your text and preferred text effect
ActiveSheet.Shapes.AddTextEffect(msoTextEffect16, "My Text" & vbNewLine & "By John", "Arial Black", _
36#, msoFalse, msoFalse, 0, 0).Select

With Selection.ShapeRange
'set your own height and width below
.Height = 100
.Width = 300
End With

Selection.Cut
'insert the cell where you want the WordArt
Range("C3").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub[/VBA]