Deleting a row if it contains the right criteria

Originally Posted by lakshithaw

With this one you can do the action for any selection of yours...

Option Explicit
 
 
Sub delete()
Dim dvalue As Double
Dim cell As Range
 
 
For Each cell In Selection
 
    If ActiveCell.Value < 30 Then
        ActiveCell.EntireRow.delete
        ActiveCell.Offset(-1, 0).Activate
    End If
 
        ActiveCell.Offset(1, 0).Activate
        Next cell
 
End Sub

You will have lots of problems if you choose to do it this way, firstly selecting or activating all the time will slow excel down and is not necessary, secondly you should always delete from the bottom up