Problem - Shapes.Textboxes
I was trying to help a user out -- but was unable to
His code (with my help, to date) is (in a standard module):
(lines 3,4,5 are in 1 row of the code) - the below is wrapped
Sub Text_Copy()
Worksheets("Summary").Shapes("Text Box 3").TextFrame.Characters.Text =
Worksheets("Description").Shapes("Text Box 1").TextFrame.Characters.Text
& " " & Worksheets("Description").Shapes("Text Box
2").TextFrame.Characters.Text
End Sub
I had it working for "a while", but suddenly it quit working.
What is suspicious about the above?
Tks in Advance
|