delete rows based on a criteria

Hi

try using Data - Filter Autofilter - in col C select "Custom" from the drop down box
as conditions use "is larger or equal to 40"
check " and"
second condition "is smaller or equal to 50)
Activate filter

delete the rows and remove the filter

Or if you prefere a macro code:

Option Explicit

Sub Delete_Row()

Dim i As Integer

For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1

If Cells(i, 3).Value >= 40 And Cells(i, 3).Value <= 50 Then
 Rows(i).Delete
End If
Next i

End Sub

Alf

Glad to be of help.

Alf