title: Extracting hyperlink from a range and writing them on another range
body: <p>I'm new to this site, but I have already found some nice advice on how to solve problems in VBA. Now I'm here to ask help on a sub that gives me problems with Hyperlinks.
  In particular, my problem is similar to the one described in this topic:</p>
  
  <p><a href="https://stackoverflow.com/questions/23984577/excel-vba-get-hyperlink-address-of-specific-cell">Excel VBA Get hyperlink address of specific cell</a></p>
  
  <p>I have a worksheet full of hyperlink, but I need to extract only the addresses present in the "H" column, starting from "H6" and writing them into the "N" column, starting from "N6".</p>
  
  <p>I put down this code:</p>
  
  <pre><code>Sub EstraiIndirizzoPut()
  
  Dim IndirizzoInternet As Hyperlink
  Dim ISINs As String
  
  i = 6
  
  For Each IndirizzoInternet In Sheets("XXX").Range("H" &amp; i).Hyperlinks
  IndirizzoInternet.Range.Offset(0, 6).Value = IndirizzoInternet.Address
  ISINs = Mid(IndirizzoInternet.Address, 78, 12)
  Range("N" &amp; i).Value = ISINs
  i = i + 1
  
  Next
  
  End Sub
  </code></pre>
  
  <p>It works fine only for the first "H6" cell, but at the "Next" point, when it should read the "H7" cell, it goes instead to "End Sub", terminating the routine, altough the "H7" cell, as well many others down the column, are filled with hyperlinks (it gives me "Nothing" value). 
  Could you please suggest me where I get this wrong? Many thanks.</p>