title: Print a range of hyperlinks
body: <p>How can I get this to print the hyperlinks files found in columns "D:E" by selecting the rows in column "A"</p>
  
  <pre><code>Sub Print_Hyperlinks()
  
      Dim rng     As Range
      Dim row     As Range
      Dim cell    As Range
      Dim LastRow As Long
  
  
      LastRow = Range("A2").End(xlDown) 'Print only selected rows in "A"
  
      Set rng = Range("D2:E" &amp; 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
  </code></pre>