Hi all,

I am basically trying to copy data from an excel document to a word document both of which are already open.

Since I know the name of the Excel file from which I need to copy the data and as it always remains the same,

I tried the following code:

Dim XLApp As Object, ws As Object
Set XLApp = GetObject("myexcelsheetname").Application---->Gettiing a syntax error here
XLApp.Sheets("Sheet 1").Shapes("Picture 3").Copy--Trouble here as well .(It says Subscript out of range.. but it WORKS WHEN I USE ACTIVESHEET instead of specifying the sheet name )
Selection.Paste

Looking forward for your help

Regards
Krishnan