Sorry, Just use the code below:



Sub Test2()
    Dim excel As excel.Application
    Dim wb As excel.Workbook
    Dim sht As excel.Worksheet
    Dim f As Object
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show
    Set excel = CreateObject("excel.Application")
    Set wb = excel.Workbooks.Open(f.SelectedItems(1))
    Set sht = wb.Worksheets("Master")
        sht.Range("A1:G10").Copy
    Range("A1").Select
    ActiveSheet.Paste Link:=True 'Paste data linked from the original sheet
    Application.CutCopyMode = False 'Unhighlight

    wb.Close Save
End Sub