Cleaning up some link copying code

[RoyR]

Following is an example of code I use to copy cells from one workbook to the active workbook.

Range("A21").Value = Workbooks("MovieDB.xls").Worksheets("Data").Range("R" & RowNum).Value 'Genre1

This works very well but if the data in the cell is a hyperlink it will not keep the link so I use ugly code as follows

Windows("MovieDB.xls").Activate
    Range("AU" & RowNum).Copy 'External Link 1
        Windows(WB).Activate
            Range("L3").PasteSpecial

I would like to change that into

Range("L3").Value = Workbooks("MovieDB.xls").Worksheets("Data").Range("AU" & RowNum).Value 'External Link 1

but I can not figure out how to remove the .Value in the first range so that the link is also copied and not just the cells value

Any sugestions...

 

[RoyR]

I got it down to two lines of code

Workbooks("MovieDB.xls").Worksheets("Data").Range("AU" & RowNum).Copy
Range("L3").PasteSpecial

This will stop the constant switching from one workbook to another and I think will speed up the macro. I use Application.ScreenUpdating = False so I don't actually see the macro switch from one book to the other.

Trying hard to learn to write better code so any tips are welcome. Thanks to those who took the time to look at this.