Text to Rows

[N1KO]

I know that converting text to columns is simple but i'm wondering if I can
create a macro to conver text to rows?

Would the easist way to do this be simply converting text to columns and
then transposing it to the rows or is there an easier way than this?

My text is e-mail addresses seperated by a comma with no spaces in between
the addresses.

Thanks in advance.

 

[Jacob Skaria]

As you mentioned text to columns with a comma delimeter and transpose is the
simplest way. If you really needa a macro please find the below

Sub Macro()
strData = "<comma separated email string>"
arrData = Split(strData, ",")
For lngRow = 0 To UBound(arrData)
Range("A" & lngRow + 1) = arrData(lngRow)
Next
End Sub

 

[N1KO]

Thanks for this Jacob but the e-mail string will constantly change in this
report. It's worked on a few others though.

Appreciated.