Private Sub CommandButton1_Click()
ListBox1.Clear
If TextBox1 = "" Then Exit Sub
For Each ws In Worksheets
With ws
Set c = .UsedRange.Find(TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
dcol = .Cells(c.Row, 256).End(xlToLeft).Column
With ListBox1
If dcol > .ColumnCount Then .ColumnCount = dcol
.ColumnWidths = 50
.AddItem ws.Cells(c.Row, 1)
x = ListBox1.ListCount - 1
For i = 2 To dcol
ListBox1.List(x, i - 1) = ws.Cells(c.Row, i)
Next
End With
Set c = .UsedRange.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next
End Sub