find text in listbox on userform, delete row containing that text on spreadsheet

Steve,

Yes.

Without testing the code, or seeing/understanding the contents of Listbox1, I think the code would look something like this (not much different from what you have).

Sub DeleteRows()
    Const WSNameWithListBox As String = Empty 'Change this name to the name of your worksheet with the Listbox
    Const ListBox1Addr As String = Empty 'change this to the name of the address where Listbox1 is located in the sheet above
'/Note: once the above constants are assigned appropriately, the If- statements that call the Message Boxes prompting you to change the above constants from Empty may be eliminated
    Dim c As Range
    Dim SrchRng As Range
    Dim SrchStr As String
    Dim WS_WithListBox as Worksheeet, WS_5 As Worksheet
    
    If WSNameWithListBox = Empty Then
        Msgbox("Error: you must enter the name of the worksheet with Listbox1 in the code (see comments in the code)")
        Exit Sub
    End If
    Set WS_WithListBox = ThisWorkbook.Worksheets(WSNameWithListBox)
    Set WS_5 = ThisWorkbook.Sheets(5)
    SrchRng = WS_5.Range("A1", WS_5.Rows.Count.End(xlUp))

    If ListBox1Addr = Empty Then
        Msgbox("Error: you must enter the name of the address of Listbox1 (such as "A1" if that is where your Listbox1 is located)..." & vbCr & "...in Worksheet: " & WSNameWithListBox & vbCr & " (see comments in the code)")
        Exit Sub
    End If
    SrchStr = WS_WithListBox.Range(ListBox1Address).Cells.Value

    Do
        Set c = SrchRng.Find(SrchStr, LookIn:=xlValues) 'note: I usually like to include the argument: LookAt:= xlPart and search by: Trim(SrchStr) (or, equivalently: What:=Trim(SrchStr) in case a user has a leading/trailing space) 
                                                                           'also note: if the xlPart argument is included, it will find: "A" just the same as "AA" or "A A" (if you're searching for: "A") so consider that whether or not this technique is appropriate for your code
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop Until c Is Nothing
End Sub

I generally like to avoid the attribute: .ActiveSheet unless I'm referencing a newly-created worksheet or the worksheet where a macro button you're pushing because it can make the results dependent upon which sheet is active/you have open when the macro runs. But it looks like .ActiveSheet was used appropriately in your code.

I'm not too familiar with Userforms, but if you give me a cell, range of cells, or a starting cell and continuous column/row of cells, I can do pretty much anything along the lines of what you're asking about.