Insert new row happening on incorrect sheet

[ipbr21054]

This is the coe i have at present.
I am using workbook DR & on worksheet INV
I am trying to open workbook MOTORCYCLES & activate sheet INVOICES then insert a new row at row 3
The workbook opens, the correct sheet is selected BUT the row is being added to the sheet im currently on & NOT the sheet i opened.

Private Sub SendToBikeSheet_Click()
Dim answer As Long, wb As Workbook
    answer = MsgBox("SEND VALUE'S TO BIKE WORKSHEET ?" & vbNewLine & "" & vbNewLine & "***** DO WE CONTINUE TO TRANSFER ? *****", vbYesNo + vbInformation, "BIKE TRANSFER QUESTION")
    If answer = vbYes Then
        Set wb = Workbooks.Open(fileName:="C:\Users\Ian\Desktop\REMOTES ETC\DR\EXCEL WORKSHEETS\MOTORCYCLES.xlsm")
        Workbooks("MOTORCYCLES.xlsm").Sheets("INVOICES").Activate
        Rows("3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        
        MsgBox ("HI")
        wb.Close True
        
        Else
        Exit Sub
        
        End If
        Workbooks("DR.xlsm").Sheets("INV").Range("G13").Select
        Application.CutCopyMode = False
        MsgBox "BIKE TRANSFER COMPLETED", vbInformation, "SUCCESSFUL MESSAGE"
        ActiveWorkbook.Save

End Sub

 

[Peter_SSs]

Untested as I don't have your files, but try

ActiveSheet.Rows("3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

[ipbr21054]

Thanks it worked

 

[Peter_SSs]

Cheers.