Excel to Word and back again

I have the following code.
Range("A7:N7").Select
Selection.Copy
Dim appWD As Word.Application
Dim odoc As Word.Document
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
Set odoc = appWD.Documents.Add
odoc.Range.PasteExcelTable False, False, False
Set appWD = Nothing

And it works but I want to copy multiple ranges, I can set up the loop
required but how do I switch back and forth between the applications. When I
try Application.ActivateMicrosoftApp xlMicrosoftExcel it brings up the
calculator????

You should have an object set to your Excel Workbook.
objYourXLWKbObject.Activate should be what you need.
Ed

"Rominall" <[email protected]> wrote in message
news:[email protected]...
> I have the following code.
> Range("A7:N7").Select
> Selection.Copy
> Dim appWD As Word.Application
> Dim odoc As Word.Document
> Set appWD = CreateObject("Word.Application")
> appWD.Visible = True
> Set odoc = appWD.Documents.Add
> odoc.Range.PasteExcelTable False, False, False
> Set appWD = Nothing
>
> And it works but I want to copy multiple ranges, I can set up the loop
> required but how do I switch back and forth between the applications.
When I
> try Application.ActivateMicrosoftApp xlMicrosoftExcel it brings up the
> calculator????
>
>