Look for each listbox item in .UsedRange

Tried it but it is just deleting every row.

I made this little code and it works. However, it's not as efficient as your code would be Andy Pope if it would be working.

For Each Object In ListBox2.List
    For Each ws In Worksheets
        For i = 400 To 18 Step -1

            If ws.Cells(i, 1).Value = Object Then
            ws.Cells(i, 1).Interior.ColorIndex = 8
            
            Else
            End If
        Next i
    Next ws
Next Object

For Each ws In Worksheets
    For i = 400 To 18 Step -1
    
        If ws.Cells(i, 1).Interior.ColorIndex = 8 Then
        
        Else
         
            ws.Cells(i, 1).EntireRow.Delete
            
        End If
    Next i
    
    With ws.Columns(1)
        .Interior.ColorIndex = 0
    End With
Next ws

No, you were right. I'm trying to keep the rows with the value in ListBox2 and hide the other rows.

Your code seems to just delete every single rows so I made so minor modifications without success. It still hides/deletes every rows :

    For Each ws In Worksheets
        For i = 400 To 18 Step -1
            ws.Cells(i, 1).EntireRow.Hidden = False
        Next i
    Next ws

    For Each ws In Worksheets
        For i = 400 To 18 Step -1
            For Each Object In ListBox2.List
                If ws.Cells(i, 1).Value = ListBox2.Object Then
                
                Else
                    ws.Cells(i, 1).EntireRow.Hidden = True
                End If
            Next Object
        Next i
    Next ws

I'm sorry but that is the maximum I can post here... Still I appreciate the will to help.

Instead of starting another thread,

I'm trying to rename the sheets of another workbook if they don't match the objects/items in a ListBox. However, I always get 'execution error 438.

   For i = 1 To 11
wbtarget.Activate
wbtarget.Worksheets(i).Name = wbthis.UserForm2.ListBox4.List(i)
   Next i

No it's not in the userform code. It is in a macro and serves a error handlerpurpose :

ErrHandler:
    Select Case Err
        Case 9:
            MsgBox "One of the selected sheets does not exist in one or multiple selected workbooks", vbCritical, "WARNING! ERROR"
                If MsgBox("Do you want to modify the names of the sheets in the selected workbooks?", vbExclamation + vbYesNo, "Modify sheets name") = vbYes Then
                    For i = 1 To 11
                        wbtarget.Activate
                        wbtarget.Worksheets(i).Name = wbthis.UserForm2.ListBox4.List(i)
                    Next i
                Else
                End If
            wbtarget.Close
            Set wbtarget = Nothing
            Set wbthis = Nothing
        Case Else
    End Select

You are right. I just referred it manually without any loop. I'll dig more into that when I have some time off.

Could you help me make this code more efficient because when I run it, it just stays in execute mode forever (literally)...

    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    
    For i = 1 To 11
        If UserForm2.Controls("checkbox" & i).Value = True Then
            Set wbtarget = Workbooks.Open(UserForm2.Controls("textbox" & i).Text)
            wbtarget.Activate
                For Each Object In UserForm2.ListBox3.List
                    wbtarget.Worksheets(Object).Columns(UserForm2.TextBox12.Value).EntireColumn.Delete
                    wbtarget.Worksheets(Object).Rows(UserForm2.TextBox13.Value).EntireRow.Delete
                Next Object
            Set wbtarget = Nothing
        End If
    Next i

    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With

Once again, I can't provide that. However, after a couple of changes, I made it work :

Sub DeleteLR()
Dim ws As Worksheet, i As Integer, a As Integer, iiint As Integer
    
    On Error GoTo ErrHandler
    
    If MsgBox("Careful! You have selected the option to delete rows and columns. This action cannot be cancelled after approval. Are you sure you want to continue?", vbYesNo + vbExclamation) = vbNo Then
        Exit Sub
    End If
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    
    Set wbthis = ThisWorkbook
    
    For i = 1 To 10
    Set wbtarget = Nothing
        If UserForm2.Controls("checkbox" & i).Value = True Then
            Set wbtarget = Workbooks.Open(UserForm2.Controls("textbox" & i).Text)
            wbtarget.Activate
            For Each Object In UserForm2.ListBox3.List
                If IsNull(Object) Then
                    Exit For
                Else
                    wbtarget.Worksheets(Object).Columns(UserForm2.TextBox12.Value).EntireColumn.Delete
                    wbtarget.Worksheets(Object).Rows(UserForm2.TextBox13.Value).EntireRow.Delete
                End If
            Next Object
        End If
continueloop:
    Next i

    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
Exit Sub

ErrHandler:
    Select Case Err
        Case 9:
            MsgBox "One of the selected sheets does not exist in one or multiple selected workbooks", vbCritical, "WARNING! ERROR"
                If MsgBox("Do you want to modify the names of the sheets in the selected workbooks?", vbExclamation + vbYesNo, "Modify sheets name") = vbYes Then
                    wbtarget.Worksheets(1).Name = "...
                    ....
                Else
                    Exit Sub
                End If
            Resume
        Case 13:
            GoTo continueloop
    End Select
End Sub