Lee,

Something to try.
1. Replace the word constants with their numeric value...
wdPasteEnhancedMetafile is 9
wdlinline is 0

2. Tell Excel which ranges and selections you referring to as
both applications use that terminology...
Excel.Range("A2:N41") and Excel.Selection

Even better...
Excel.Range("A2:N41").CopyPicture Appearance:=Excel.xlScreen, Format:=Excel.xlPicture
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Lee"
wrote in message
Below is part of a larger routine that copies pages from Excel and pastes
them into Word. This is running on numerous PC's with no problems, but on
one particular PC I'm getting a Run-Time Error 91, Object variable or with
block variable not set, that stops on wdapp.Selection.PasteSpecial.

Sub Page1()
'this subrountine prints the first page of the BOE
'select the range
Range("A2:N41").Select
'copy the range
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
'paste the range in word
wdapp.Selection.PasteSpecial Link:=False,
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdlinline, DisplayAsIcon:=False
End Sub

Any ideas why it doesn't work on only one P.C? I'm not sure where to start
looking since it it set up with the same applications and directory structure
as all of the rest.
Thanks,
Lee