This is a re-post (original 6/21), much summarized and, hopefully a lot
clearer...Any assistance is greatly appreciated.

I have a tab labeled I-16 where I have a text box (text box 2). I would like
to have the text in the box copied to cell J45 on a tab named 'database'.
Both tabs are on the same workbook.

Also, the text is more than 1,024 characters long, so there may a problem
when it gets copied over to cell J45.



Thanks!

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

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