‘Cycle through rows in selRange and delete entire row when crit ‘equals the current value. j = 0 For i = selRange.Rows.Count To 1 Step -1 If crit = selRange.Cells(i, 1).Value Then selRange ...