title: Directory List hyperlink macro needs to move to another column
body: <p>So earlier today I got my code fixed to hyperlink, but I can't seem to figure out how to get it to put the list in Column U instead of column A.</p>
  
  <pre><code>Sub hyperlinker()
  
    Dim MOG As Object
    Dim rsMOG As Object
    Dim PrimeF As Object
    Dim Bit As Object
    Dim Foder As Object 
    Dim Linger As Integer
    Dim Enigma As String
    Dim Way As String
  
  
    'Get the current folder
    Set MOG = CreateObject("scripting.filesystemobject")
    Set PrimeF = MOG.GetFolder(ThisWorkbook.Path)
    Set MOG = Nothing
  
    'Get the row at which to insert
     Linger = Range("A65536").End(xlUp).row + 1
  
    'Create the recordset for sorting
     Set rsMOG = CreateObject("ADODB.Recordset")
    With rsMOG.Fields
      .Append "Way", 200, 200
      .Append "Enigma", 200, 200
      .Append "Bit", 200, 200
    End With
    rsMOG.Open
  
    ' Traverse the entire folder tree
    TraverseFolderTree PrimeF, PrimeF, rsMOG
    Set PrimeF = Nothing
  
    'Sort by type and name
    rsMOG.Sort = "Bit ASC, Enigma ASC "
    rsMOG.MoveFirst
  
    'Populate the first column of the sheet
    While Not rsMOG.EOF
      Enigma = rsMOG("Enigma").value
      Way = rsMOG("Way").value
      If (Enigma &lt;&gt; ThisWorkbook.name) Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(Linger, 1), Address:=Way, TextToDisplay:=Enigma
        Linger = Linger + 1
      End If
      rsMOG.MoveNext
    Wend
  
    'Close the recordset
    rsMOG.Close
    Set rsMOG = Nothing
  
  End Sub
  
  Private Sub TraverseFolderTree(ByVal parent As Object, ByVal node As Object, ByRef rs As Object)
  
    'List all files
    For Each Bit In node.Files
  
      Dim Enigma As String
      Enigma = Mid(Bit.Path, Len(parent.Path) + 2)
  
      rs.AddNew
      rs("Way") = Way
      rs("Enigma") = Enigma
      rs("Bit") = "Bit"
      rs.Update
    Next
  
    'List all folders
    For Each Foder In node.SubFolders
      TraverseFolderTree parent, Foder, rs
    Next
  
  End Sub
  </code></pre>
  
  <p>pardon the random words in the index, I had to change them to odd names due to the use of the usual words in another macro.</p>
  
  <p>basically,</p>
  
  <pre><code>dim linger as integer
  </code></pre>
  
  <p>and</p>
  
  <pre><code>'Get the row at which to insert
    Linger = Range("A65536").End(xlUp).row + 1
  </code></pre>
  
  <p>give me column A no mater what I put in there, can someone help me to get this hyperlink list to column U?</p>