title: VBA : Parse Hyperlink based on Column Range
body: <p>I have below script to copy and do filter based on array. In range B:B i have Link that I want to parse into another range of column, let's say in column BM:BM but I'm not sure its can be incorporated to the first script</p>
  
  <pre><code>Function GetURL(Rng As Range) As String
      On Error Resume Next
      GetURL = Rng.Hyperlinks(1).Address
  End Function
  </code></pre>
  
  <hr>
  
  <pre><code>Sub AnotherTry2()
      Dim wbSource As Workbook, wbDest As Workbook
      Dim wsSource As Worksheet, wsDest As Worksheet
      Dim rngSource As Range, rngDest As Range
      Dim critSite As ListObject
      Dim myArray As Variant
      Dim TempArray As Variant
  
      Set wbSite = ThisWorkbook
      Set wsSite = wbSite.Worksheets("newlist")
      Set critSite = wsSite.ListObjects("Table6")
  
      TempArray = critSite.DataBodyRange
      myArray = Application.Transpose(TempArray)
  
      Set wbSource = Workbooks.Open("c:\temp\Data.xlsx", , True)
      Set wsSource = wbSource.Worksheets("Report 1")
      wsSource.Range("A:BL").AutoFilter field:=50, Criteria1:=myArray, Operator:=xlFilterValues
  
      Set wbDest = ThisWorkbook
      Set wsDest = wbDest.Worksheets("raw")
  
      wsDest.Application.CutCopyMode = False
      wsSource.Range("A1:BL200000").SpecialCells(xlCellTypeVisible).Copy
      wsDest.Cells(1, 1).PasteSpecial
      wbDest.Save 
      wbSource.Close (False)
  End Sub
  </code></pre>