Find Value, Select all rows and result in ListBox

[chiabgigi]

In discussions I found this code. Is it possible to change it so that the value of a text box is the parameter to search for and that all items are redirected to a listbox? Example in column C there are pages of a catalog. There are 10 lines on page 7. In the textbox, type 7 and lines A to J should appear

Mr.
Rick Rothstein
Oct/28/2014 wrote:

Sub SelectEntireRow()
  Dim FindMe As String, Rng As Range
  FindMe = InputBox("What did you want to find?")
  If Len(FindMe) Then
    On Error GoTo RangeNotSelected
    Set Rng = Application.InputBox("Select the range to look in...", Type:=8)
    If TypeOf Rng Is Range Then
      Rng.Replace FindMe, "#N/A", xlWhole
      With Rng.SpecialCells(xlConstants, xlErrors)
        .EntireRow.Select
        .Value = FindMe
      End With
    End If
  End If
RangeNotSelected:
End Sub

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.