Sub btnOpen_Click()
Dim crtSht As Worksheet
Set crtSht = ActiveSheet
Dim addressVal As String
addressVal = crtSht.Cells(3, 3)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(addressVal)
Dim sheet As Excel.Worksheet
Set sheet = xlBook.Worksheets(2)
crtSht.Cells(5, 3).Value = sheet.Cells(1, 1)
End Sub
Dim crtSht As Worksheet
Set crtSht = ActiveSheet
Dim addressVal As String
addressVal = crtSht.Cells(3, 3)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(addressVal)
Dim sheet As Excel.Worksheet
Set sheet = xlBook.Worksheets(2)
crtSht.Cells(5, 3).Value = sheet.Cells(1, 1)
End Sub