Hi Chris,

Investigate the .PrintArea property of the PageSetup object (in Excel's VBA
help).

Will something like this below get you started ...

----------
Sub ExportPrintAreas()
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
' Note: This returns a string, not a range!
If Len(wks.PageSetup.PrintArea) = 0 Then
' A print area has not been defined for this sheet (i.e. if
printing, print the whole sheet).
' Decide how you want to handle this case.
Else
Debug.Print wks.PageSetup.PrintArea
' You'll need to replace the above line and use something like
wks.Range(wks.PageSetup.PrintArea).Copy
' Insert your own code here to copy the range, open an
instance of Word and do what you need to do.
End If
Next wks
End Sub
----------

Post back again if you need to.

HTH, Sean.

"Chris Shaw" wrote:


HOWDY!

Is there a way to select a range defined to be inside my print area?

Can you work with Pages (not Worksheets) in Excel?

I have multiple ranges that need to go to WORD as pictures, and some
are on individual worksheets and some are on the same worksheet, so I
have set multiple print areas to encompass the individual ranges, and
now I want to select.copy these "pages" individually to WORD using a
Loop.

Is there a way or is there a better way.

You guys are the greatest!

Have a great day,

Chris


--
Chris Shaw
------------------------------------------------------------------------
Chris Shaw's Profile: http://www.excelforum.com/member.php...o&userid=25041
View this thread: http://www.excelforum.com/showthread...hreadid=385660