Open workbook / worksheet & insert new row

[ipbr21054]

Hi,
This is what i am trying to do.

On a worksheet "A" i run a command button code to open another workbook / worksheet "B" & then insert a new row at row 3
I see the workbook / worksheet open BUT the row isnt inserted on the correct sheet "B", it opens on the sheet i am running the code from "A"

Please advise

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Users\Ian\Desktop\REMOTES ETC\DR\EXCEL WORKSHEETS\MOTORCYCLES.xlsm")
Worksheets("INVOICES").Activate
Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

 

[Herakles]

Hi,
This is what i am trying to do.

On a worksheet "A" i run a command button code to open another workbook / worksheet "B" & then insert a new row at row 3
I see the workbook / worksheet open BUT the row isnt inserted on the correct sheet "B", it opens on the sheet i am running the code from "A"

Please advise

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Users\Ian\Desktop\REMOTES ETC\DR\EXCEL WORKSHEETS\MOTORCYCLES.xlsm")
Worksheets("INVOICES").Activate
Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

 

[Herakles]

Does this work?

Private Sub CommandButton1_Click()

    Workbooks.Open ("C:\Users\Ian\Desktop\REMOTES ETC\DR\EXCEL WORKSHEETS\MOTORCYCLES.xlsm")
    
    Worksheets("INVOICES").Activate
    
    Worksheets("INVOICES").Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

 

[ipbr21054]

It did many thanks