Adam,

We can slightly modify the code I provided before

Sub moveToWord()
Set x = CreateObject("Word.Application")
x.Documents.Add
x.Visible = True

For Each cl In Selection

z = z & cstr(cl.value)

Next
x.Selection.TypeText CStr(z)

End Sub

http://HelpExcel.com

"Adam" wrote:

I have data from about seven cells that I need to have combined into one
string when I use data automation from excel to word, is this possible?