Copy worksheet from other workbook based on cell value (path & sheetname)

Option Explicit
Public Sub Copy_Worksheet()




Dim wbSource As Workbook
Dim strSheetName As String


strSheetName = ActiveSheet.Range("B1")


Set wbSource = Workbooks.Open(ActiveSheet.Range("A1"), False, True)
wbSource.Worksheets(strSheetName).Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)


wbSource.Close False
Set wbSource = Nothing


End Sub

Option Explicit


Sub CopySheet()
    Dim oWb As Workbook
    ''/// ensure screen updating is restored if an error occurs
    On Error GoTo exit_proc:
    ''/// hide action from user
    Application.ScreenUpdating = False
    Set oWb = Workbooks.Open(ActiveSheet.Range("A1").Value)
    ''/// copy required sheet to front of workbook
    oWb.Worksheets(ActiveSheet.Range("B1")).Copy Before:=ThisWorkbook.Sheets(1)
    ''/// close opened workbook without saving
    oWb.Close False
exit_proc:
    Application.ScreenUpdating = True
End Sub

Option Explicit


Sub CopySheet()
    Dim strSheetName As String


    strSheetName = ActiveSheet.Range("B1")
    Application.ScreenUpdating = False
    With Workbooks.Open(ActiveSheet.Range("A1").Value)
        DoEvents '//// ensure workbook is open
        .Worksheets(strSheetName).Copy Before:=ThisWorkbook.Sheets(1)
        .Close False
    End With
    Application.ScreenUpdating = True
End Sub