Помогите пожалуйста написать макрос. Мне нужно что бы из всех книг Excel удалялись все строки в которых первый столбец содержит МИ ( например МИ №1 или МИ №3 или МИ25), причем такие строки идут вперемешку с тем что надо оставить(а это все остальное).
Например

Х| A | B |
1| МИ 10 | 25 |
2| РФ | 100 |

В данном примере нужно чтобы удалилась первая строка, а вторая осталась

Однако писать макросов я совсем не умею , вот что я на ваял

Sub MySub()

Dim x As Worksheet
Dim a As Integer
For Each x In ActiveWorkbook.Sheets
If Not x.Cells.Find(what:="МИ") Is Nothing Then
With x
a = CStr(x.Cells.Find(what:="МИ").Row)
.Rows(a & ":" & a).Delete Shift:=xlUp
End With
End If
Next x

End Sub

Само собой, не работает - вообще ничего не удаляет . Где я ошибся?
ПС в поиске смотрел, там есть похожие темы, но их макросы не совсем корректно отрабатывались. Возможно я смотрел не те темы, какую посмотреть?

Спасибо огромное этот макрос действительно работает, но на 25 листе не зависимо от положения листов он стопорится, причем непонятно почему