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