Intentando escribir código para extraer datos de todos los archivos

Estoy intentando que el código busque todos los libros de trabajo y si encuentra lo que se está buscando, copia y pega toda la fila en un cuadro de lista en un formulario de usuario.

Ordenamos muchas partes y nos gustaría buscar para ver cuándo se ordenó la última parte. esta búsqueda extraerá esa información.

El siguiente código me da un mensaje de error y no puedo entender por qué. OBJECT DOESN’T SUPPORT THIS PROPERTY OR METHODla parte en negrita se resalta cuando ejecuto el código.

¿Alguien podría ayudar con esto?

Option Explicit
Private Sub CommandButton1_Click()
Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = ThisWorkbook
Dim ws As Worksheet
Dim sPath As String
Dim sfile As String
Dim C As Range
sPath = "\\192.168.1.4\ET_Documents\Shared Documents\Inventory Transactions\TRANSACTIONS AS OF 11-3-2017\"
sfile = Dir(sPath & "*.xls*")
Application.ScreenUpdating = False
Set ws = Sheet1
ListBox1 = 0
Do While sfile <> ""
Set wb2 = Workbooks.Open(sPath & sfile)
    With ListBox1
        For Each C In wb2.Columns("b8:b15")          ' THIS IS THE HIGHLIGHTED LINE
                If C = TextBox1.Value Then
                    With C.EntireRow
                        ListBox1.AddItem
                    End With
                End If
        Next
    End With
wb2.Close False
sfile = Dir()
Loop

Application.ScreenUpdating = True
End Sub

Como dice el error, su Object ( wb2) no tiene un método o propiedad que coincida con el método / propiedad que intentó usar ( columns).

Columnses una propiedad de una clase de hoja de trabajo de Excel , mientras intenta usarla con un libro de trabajo , que no tiene esa propiedad .