title: Hyperlink specific cell under column on VBA code
body: <p>I have a macro to search for a value on different sheets. The code is working fine but the problem is that I want the value of the cell under column C to be hyperlinked which I am unable to.</p>
  <p>So once I click on the hyperlinked cell, it should open up the source file.</p>
  <p>The code is as follows:</p>
  <pre><code>Sub SearchFolders()
  
  Dim xFso As Object
  Dim xFld As Object
  Dim xStrSearch As String
  Dim xStrPath As String
  Dim xStrFile As String
  Dim xOut As Worksheet
  Dim xWb As Workbook
  Dim xWk As Worksheet
  Dim xRow As Long
  Dim xFound As Range
  Dim xStrAddress As String
  Dim xFileDialog As FileDialog
  Dim xUpdate As Boolean
  Dim xCount As Long
  On Error GoTo ErrHandler
  Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
  xFileDialog.AllowMultiSelect = False
  xFileDialog.Title = &quot;select folder&quot;
  If xFileDialog.Show = -1 Then
      xStrPath = xFileDialog.SelectedItems(1)
  End If
  If xStrPath = &quot;&quot; Then Exit Sub
  xStrSearch = &quot;searched value&quot;
  xUpdate = Application.ScreenUpdating
  Application.ScreenUpdating = False
  Set xOut = Worksheets.Add
  xRow = 1
  With xOut
      .Cells(xRow, 1) = &quot;book&quot;
      .Cells(xRow, 2) = &quot;sheet&quot;
      .Cells(xRow, 3) = &quot;cell&quot;
      .Cells(xRow, 4) = &quot;search value&quot;
      Set xFso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
      Set xFld = xFso.GetFolder(xStrPath)
      xStrFile = Dir(xStrPath &amp; &quot;\*.xls*&quot;)
      Do While xStrFile &lt;&gt; &quot;&quot;
          Set xWb = Workbooks.Open(Filename:=xStrPath &amp; &quot;\&quot; &amp; xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
          For Each xWk In xWb.Worksheets
              Set xFound = xWk.UsedRange.Find(xStrSearch)
              If Not xFound Is Nothing Then
                  xStrAddress = xFound.Address
              End If
              Do
                  If xFound Is Nothing Then
                      Exit Do
                  Else
                      xCount = xCount + 1
                      xRow = xRow + 1
                      .Cells(xRow, 1) = xWb.Name
                      .Cells(xRow, 2) = xWk.Name
                      .Cells(xRow, 3) = xFound.Address
                      .Cells(xRow, 4).Range(&quot;A1:T1&quot;).Value = xFound.EntireRow.Range(&quot;A1:T1&quot;).Value                       
                  End If
                  Set xFound = xWk.Cells.FindNext(After:=xFound)
              Loop While xStrAddress &lt;&gt; xFound.Address
          Next
          xWb.Close (False)
          xStrFile = Dir
      Loop
      .Columns(&quot;A:D&quot;).EntireColumn.AutoFit
  End With
  MsgBox xCount &amp; &quot;Cells found&quot;, , &quot;EA&quot;
  
  ExitHandler:
  Set xOut = Nothing
  Set xWk = Nothing
  Set xWb = Nothing
  Set xFld = Nothing
  Set xFso = Nothing
  Application.ScreenUpdating = xUpdate
  Exit Sub    
  ErrHandler:
  MsgBox Err.Description, vbExclamation
  Resume ExitHandler
  End Sub
  </code></pre>