Matt,

Thanks very much for the code. It works as advertised. Apologies for not
having mentioned this was to be an automated task. I am glad you noticed...

One more question if I may, please.
Is there a way to get around the maximum character limitation? The text in
the text box is quite long, certainly over 1024 characters long.

Thanks gain for all your help!



"Mallycat" wrote:


I assume you want to automate this task - otherwise you would just copy
it yourself!

This was remarkably difficult to work out - maybe that's why you
haven't had a response before now.

Sub copyText()
Sheets("I-16").Shapes("Text Box 2").Select
Sheets("database").Range("J45").Value = Selection.Characters.Text
End Sub

Matt


--
Mallycat
------------------------------------------------------------------------
Mallycat's Profile: http://www.excelforum.com/member.php...o&userid=35514
View this thread: http://www.excelforum.com/showthread...hreadid=555079