Большой Кол, всего навсего использовали не тот цикл, потому и не удаляло. Рабочий код:
Код:
Dim x As Worksheet
Dim a As Integer
For Each x In ActiveWorkbook.Sheets
While Not x.Cells.Find(what:="МИ") Is Nothing
With x
a = CStr(x.Cells.Find(what:="МИ").Row)
.Rows(a & ":" & a).Delete Shift:=xlUp
End With
Wend
Next x
