Using Paste Link in a With statement

[Phil Floyd]

Is there a way to paste a link using a with statement? I am using the
following code and I get an error when it runs on the last line.



sh.Range("L3").Copy



With DestSh.Cells(Last + 1, "B")

.ActiveSheet.Paste Link:=True



End With



I've also tried the following line to no avail



.PasteSpecial xlPasteLink





Can this be done using a with statement?



Thanks,



Phil

 

[Tom Ogilvy]

sh.Range("L3").Copy



With DestSh
.Activate
.Cells(Last + 1, "B").Select
.Paste Link:=True
End With

 

[Phil Floyd]

Thanks for the help.
Phil

sh.Range("L3").Copy



With DestSh
.Activate
.Cells(Last + 1, "B").Select
.Paste Link:=True
End With