title: How to Search Specific Column In Each Worksheet of Excel
body: <p>I have an excel document with over 50 worksheets all with a similar naming convention.
  As this will be so unfriendly for users to navigate to, I wrote a VBA macro which creates a worksheet called summary with the list of all the worksheets hyperlinked in a tabular form with Sheet A B and C as the Column and Sheet 1 and 2 as rows.</p>
  
  <p>Now I am trying to go through each row of a specific column in Sheet 1 and Sheet 2 and look for any reference to SheetB, SheetC and SheetD and for each reference found and I want to mark that creating a matrix.</p>
  
  <p>I am not sure how to achieve this. Any assistance will be much appreciated.</p>
  
  <p>I have managed to search Sheet 1 and 2 for any reference to SheetB as shown below but I am not sure how to update the corresponding cell in my summary sheet.</p>
  
  <pre><code>Function findWord(word As String, wSheet As String) As Boolean
  
      Dim LastRow As Long
      Dim i As Long
      LastRow = Worksheets(wSheet).Cells(Rows.Count, "D").End(xlUp).Row
  
      For i = LastRow To 1 Step -1
         If Worksheets(wSheet).Range("D" &amp; i).Value = word Then
            findWord = True
            Exit Function
         End If
      Next i
  End Function
  
  
  For Each wsSheet In wbBook.Worksheets
      If (wsSheet.Name &lt;&gt; wsActive.Name) And (Left(wsSheet.Name, 4) &lt;&gt;   "fact") Then
      For i = 2 To lastColumn
           MsgBox wsSheet.Name
         If findWord(columnNames(counter2), wsSheet.Name) Then
            'Update summary sheet
         End If
         counter = counter2 + 1
      Next i
  
  End If
  Next wsSheet
  </code></pre>