A basic approach would be:

sStr = ActiveSheet.TextBoxes("Text Box 2").Text
Thisworkbook.Worksheets( _
"ConsolidatedCSVData").Cells(i,"G").Value = sStr

--
Regards,
Tom Ogilvy


"cyberwar" wrote in
message ...

Hallo Guys,

First of all thanks for making a wonderful forum public in order to
help consumers with questions and problems! It is really appreciated by
the community - thanks for everyone's hard work!

Now to my problem/question:

1.) I have multiple workbooks to combine into one (litterally
thousands)
2.) Each of these workbooks contains lots of data that needs to be
fetched and exported into a .CSV file.
3.) I use a macro the get the data from specified locations and export
them into seperate CSV files in a specific field order. I then use
another sub to take all the CSV files and append into one.
4.) All of the fields are in specified rows and columns, EXCEPT for
one. This filed I need is resident inside a textbox inside the
workbooks.
5.) This content and length of this field differs from workbook to
workbook and I need a piece of code to "get" this text, place it inside
a row/col and export it to CSV with the other fields.
6.) Luckily if seems that the text box are named in all the sheets as
"Text Box 2" (The one's I spot checked at least)

How do I get the text from the textbox and place it into any ROW/COLUMN
in order to export it?

Thanx in advance for any help provided!

Kind regards

CW


--
cyberwar
------------------------------------------------------------------------
cyberwar's Profile:
http://www.excelforum.com/member.php...o&userid=28136
View this thread: http://www.excelforum.com/showthread...hreadid=476486