Dim vArr as Variant
Dim rw as Long
rw = 1
vArr = Application.Split(Worksheets("sheet1").cells(rw,1) .Value,"/")
worksheets("Sheet2").Range("A1:A500").Value = Application.Transpose(varr)

--
Regards,
Tom Ogilvy


"scottwilsonx" wrote in message
...

Hello everyone.

I have an Excel2000 spreadsheet with imported data in the range:
A1:A1000.

Each cell, eg: A1, A2, A3 etc.... has a separate record, the record is
a string, separated by the "/" delimiter.
What I want to be able to do is look at each part of the record, but a
text to columns doesnt work as there are over 255+ columns and excel
only works to circa 256.

Ideally, what I would like is to transpose the record so that A1 will
be filled in column A1:A500 (or however long it takes to text to
columns the record so that the text delimiter separates the records on
transpose).

Sorry if this isnt explained well, and many thanks for your help.
Let me know if sending you an example of the record would help.

Thank you again.
Scott.


--
scottwilsonx
------------------------------------------------------------------------
scottwilsonx's Profile:
http://www.excelforum.com/member.php...o&userid=11128
View this thread: http://www.excelforum.com/showthread...hreadid=272376