Private Sub Linl_to_Textbox()

Dim Newshp As Shape
Dim Newtbx As TextBox

Set Newshp = ActiveSheet.Shapes.AddTextbox (msoTextOrientationHorizontal, 200, 200, 150, 150)

Set Newtbx = Newshp.OLEFormat.Object
Newtbx.Formula = "$A$1"

End Sub