I have a Range of cells in Excel that I wish to past into a Word file
so that I can make Labels with the Data.

This is what I have done so far but the commented Line doesn't work

Public Sub Label_maker()

Dim lrow As Range
Dim rc As Integer
Dim ar As Integer
Dim WdApp As Object

Set lrow = Sheet1.Range("A" & Rows.Count).End(xlUp)

lrow.Activate
ar = ActiveCell.row

Range(Cells(4, "a"), Cells(ar, "d")).Copy



'Set WdApp = C:\Documents and Settings\Owner\My Documents\Word\data.doc
<=== I know this is wrong but how do I do it? If I can get the info
into Word I know how to do a Merge, et.

Any Help would be greatly appreciated..

End Sub

Denbor

Can't you just use the excel data source for the data in word?
Therefore you don't need to paste into word?

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Denbor" wrote:

> I have a Range of cells in Excel that I wish to past into a Word file
> so that I can make Labels with the Data.
>
> This is what I have done so far but the commented Line doesn't work
>
> Public Sub Label_maker()
>
> Dim lrow As Range
> Dim rc As Integer
> Dim ar As Integer
> Dim WdApp As Object
>
> Set lrow = Sheet1.Range("A" & Rows.Count).End(xlUp)
>
> lrow.Activate
> ar = ActiveCell.row
>
> Range(Cells(4, "a"), Cells(ar, "d")).Copy
>
>
>
> 'Set WdApp = C:\Documents and Settings\Owner\My Documents\Word\data.doc
> <=== I know this is wrong but how do I do it? If I can get the info
> into Word I know how to do a Merge, et.
>
> Any Help would be greatly appreciated..
>
> End Sub
>
> Denbor
>
>