Paste selected columns from worksheet in a workbook to anotherworkbook

[Orimslala]

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

 

[Orimslala]

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