Macro for copy and paste as link

Hi

I have this macro and want to change this to when it paste it paste special as link (link to another sheet ) not value,
Thanks
RR

Sub Test()
    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").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = 0
    wb.Close Save
    End Sub