Here is the code-
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Shapes("Rectangle 1").TextFrame.Characters.Text = Target.Value
End If
End Sub
Excel Macro FILE-
http://www.filefactory.com/file/cdbf6b4/n/Add_content_to_text_box.xlsm
No comments:
Post a Comment