Question: I want to paste link from one sheet to another

```
Range("A1:D1").Select
Range("D1").Activate
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste Link:=True

```

However, the code would make the sheet to switch to Sheet2 from Sheet1. Is there anyway that I could paste the link without switching the sheet?

Thanks.

Answer: 
This will work:

```
ThisWorkbook.Worksheets("Sheet2").Range("D1").Formula = "=Sheet1!D1"

```
You could use `Application.ScreenUpdating = False` and then return it to true after the paste has completed.

Example:

```
Application.ScreenUpdating = False
Worksheets("Sheet1").Range("D1").Copy    
Worksheets("Sheet2").Activate   
Range("Range You Want To Paste").Select    
ActiveSheet.PasteSpecial Link:=True  
Worksheets("Sheet1").Activate
Range("A Range You Want Active").Activate   
Application.ScreenUpdating =true

```