Stratuser,
you can try this.
Sub copyexceltoword()
Set wd = CreateObject("word.application")
wd.Application.Visible = True
wd.Application.Documents.Open "c:\matt.doc" ' Open your word document
Application.Visible = True
For a = 1 To 5
Application.Range("a" & a).Copy 'copy data from excel
wd.Selection.Paste 'Paste data into word
Next a
Set wd = Nothing 'Clear the memory. Very important.
End Sub
let me know if you need further help.
---
Message posted from
http://www.ExcelForum.com/