Copy Selection.Insert Problem

[JC2710]

Hi

Can anyone tell me why this doesnt work?

     Selection.EntireRow.Copy
 
    'Set workbook and open workbook in directory
    Set wkBook = Workbooks.Open(sTemplatePath & sTemplateFileName, UpdateLinks:=0)
 
    Set wsSheet = wkBook.Sheets(1)
 
    wsSheet.Rows("16:16").Select
    Selection.Insert Shift:=xlDown

I get a message saying object has disconnected withits clients!

Thanks

 

[ColinKJ]

Hi,

This worked for me.

Code:

Set wsSheet = ActiveWorkbook.Sheets(1)

wsSheet.Rows("16:16").Select
Selection.Insert Shift:=xlDown

ColinKJ