удалить строку если значение в ячейке равно Х

[IgorGO]

как-то так:

Sub DelRowsAtSht(ws as worksheet)
Dim x As Range: Application.ScreenUpdating = False
Set x = Intersect(ws.UsedRange, ws.[C:C])
ws.[C:C].AutoFilter Field:=1, Criteria1:="3"
x.Offset(1).Resize(x.Rows.Count).Sp ecialCells(xlCellTypeVisible).Entir eRow.Delete
[C:C].AutoFilter
End Sub

sub test
  DelRowsAtSht worksheets(3) ' удалить строки на 3-ем листе
end sub

[Alexbr-vl]

Спасибо!!!