how to add sheet name in workbook to open?

[Patriot2879]

Hi, good morning. I have the code below where it copies info from G:\ and pastes into my sheet1, but on my G:\Rota 2017.xlsx I have 2 sheets, 2017 and 2018, and I want the data copied from sheet 2018 how do I add the sheet name into the workbook open link? many tanks for your time.

Private Sub CommandButton1_Click()
    Dim wsTo As Worksheet
    Dim wb2 As Workbook
    Application.ScreenUpdating = False
    
    Set wsTo = ThisWorkbook.Sheets("ROTA")
    
    Set wb2 = Workbooks.Open("G:\Rota 2017.xlsx")
    
    With wb2.Sheets("Sheet1")
        .Range("A1:N100").Copy wsTo.Range("A1:N100")
   

    End With
wb2.Close False
End Sub

 

[RoryA]

You need:

With wb2.Sheets("2018")

 

[Patriot2879]

thank you, silly me I missed that line thanks again for your help