Pasting a string into a table

[John]

Hi there,

I'm trying to paste a string of into a PowerPoint table. I've generated the
string from Visio from a collection (see below) but I'm not sure how to get
it to separate each entry to a subsequent row in the table (ie When I right
click and paste in the top cell of a PowerPoint table, I want it to paste
each new name in the string to each cell (vertically))

Should I be using something other than vbCr?

Thanks in advance

John


For Each x In colShps
strNewNames = strNewNames & x & vbCr
Next x

MyData.SetText (strNewNames)
MyData.PutInClipboard