Hello all,

Thanks for all of the support this forum has gave me. After a few months, I'm manipulating arrays, loops, userforms, and buttons. Today, I'm running into a little bit of a problem and my searches are not pulling up anything useful. I'm trying to create a macro that will cut and paste a predetermined range into a word document. Below is the macro:

Option Explicit

Sub export_to_word()

Dim appWord As Word.Application

Set appWord = New Word.Application
appWord.Visible = True
Sheet8.Range(Cells(6, 33), Cells(44, 42)).Copy
appWord.documents.Add.Content.Paste

End Sub
The only problem is that when the object gets pasted into the word document, it is too large to fit onto one page. Is there a way to automically size the object so that when it get's pasted, it doesn't bleed over the edges and stuff?

Thanks,
Bob1980