Print a range of hyperlinks

How can I get this to print the hyperlinks files found in columns "D:E" by selecting the rows in column "A"

Sub Print_Hyperlinks()

    Dim rng     As Range
    Dim row     As Range
    Dim cell    As Range
    Dim LastRow As Long


    LastRow = Range("A2").End(x开发者_运维知识库lDown) 'Print only selected rows in "A"

    Set rng = Range("D2:E" & LastRow)

    For Each row In rng.Rows
      For Each cell In row.Cells
           Selection.Hyperlinks(1).Follow   'List of Hyperlinks in Column "D"
           Selection.Hyperlinks(2).Follow   'List of Hyperlinks in Column "E"
      Next cell
    Next row

End Sub

---

YOu need to reference the last row not the data therein i.e. replace

LastRow = Range("A2").End(xlDown) 'Print only selected rows in "A" with LastRow = Range("A2").End(xlDown).row 'Print only selected rows in "A"

Chris