Help Pasting Link in Another Workbook

[phelbin]

I'm trying to copy links to my current workbook into another workbook. The following code works, but it's slow cause I have to do it multiple times... and it's inelegant. I usually try to avoid activating and selecting, but I can't seem to do the Paste Link:=True without it. Any ideas?

Set wbk = Application.ThisWorkbook
Set wbk2 = Workbooks("Display Workbook.xlsx")

    Range("L13:O17").Copy
    wbk2.Activate
    Range("H12").Select
    ActiveSheet.Paste Link:=True
    wbk.Activate

thanks!
Kate

[mjr veverka]

... and it's inelegant ...

???
If it works correctly it is elegant ...

Option Explicit

Sub copy_and_establish_links_to_source()
Dim wbk As Workbook, wbk2 As Workbook
Dim wbkSht As Worksheet, wbk2Sht As Worksheet

    Application.ScreenUpdating = False
    
    Set wbk = ThisWorkbook
    Set wbkSht = wbk.Sheets("Sheet1")
    
    Set wbk2 = Workbooks("Display Workbook.xls")
    Set wbk2Sht = wbk2.Sheets("Sheet1")
    
    wbk.Activate
    wbkSht.Range("L13:O17").Copy
    
    wbk2.Activate
    wbk2Sht.Activate
    wbk2Sht.Range("H12").Select
    wbk2Sht.Paste Link:=True
    wbk2Sht.Range("A1").Select
    Application.CutCopyMode = False
    
    wbk.Activate
    
    Application.ScreenUpdating = True
End Sub