Hi,

I am trying to copy a selected number of columns from one workbook and
paste it into another worksheet in a second workbook.

I keep on getting an error on ActiveSheet.Paste.(ie. TargetWS.Paste
below)

How can i get round this or better still could a vb champion show me
the correct way to do this.

Thanks.

kolu


Set SrcWkb = Workbooks("source.xls")

Application.Windows("source.xls").Activate
Columns("G:I").Select
Application.CutCopyMode = False
Selection.Copy
Application.Windows("Target.xls").Activate
Columns("G:I").Select
With TargetWkb.Worksheets("sheet")
TargetWS.Paste
End With

On 4 Apr, 01:50, Orimslala wrote:
Hi,

I am trying to copy a selected number of columns from one workbook and
paste it into another worksheet in a second workbook.

I keep on getting an error on ActiveSheet.Paste.(ie. TargetWS.Paste
below)

How can i get round this or better still could a vb champion show me
the correct way to do this.

Thanks.

kolu

* * Set SrcWkb = Workbooks("source.xls")

* * Application.Windows("source.xls").Activate
* * Columns("G:I").Select
* * Application.CutCopyMode = False
* * Selection.Copy
* * Application.Windows("Target.xls").Activate
* * Columns("G:I").Select
* * With TargetWkb.Worksheets("sheet")
* * * * TargetWS.Paste
* * End With

The error message i get is : object invoked has disconnected from its
cilents when i execute TargetWS.Paste