If B1 contains a formula, then this event macro will display the contents in
WordArt:

Private Sub Worksheet_Calculate()
If ActiveSheet.Shapes.Count 0 Then
ActiveSheet.Shapes(1).Delete
End If

v = Range("B1").Value
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, v, "Arial Black", _
36#, msoFalse, msoFalse, 294.75, 184.5).Select
Application.CommandBars("WordArt").Visible = False
End Sub

Put the macro in the worksheet code area
--
Gary''s Student - gsnu200818