Help Deleting Rows with Range from Listbox

[plawrenz]

I need the range to go from A150 to A7 since its current state it missed rows if there are multiple rows that need to be deleted.

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then


Set r1 = Range("A7:A150")
For Each c1 In r1

If c1.Value = .List(i) Then
c1.Font.Bold = True
With c1
c1.EntireRow.Delete
End With
End If

Next c1

End If
Next i
End With

 

[PHV]

What about this ?

With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            For r = 150 To 7 Step -1
                If Cells(r, 1).Value = .List(i) Then
                    Rows(r).Delete
                End If
            Next r
        End If
    Next i
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886