Bom dia a todos!

Minha primeira postagem no fórum, espero que eu esteja fazendo da maneira correta. Me desculpem qualquer coisa.

Estou com um erro em uma função de "Erro de definição de aplicativo ou de definição de objeto". Normalmente adicionando o "On Error Resume Next" deveria pular este erro e ele não acontecer mais. Em um certo computador isso acontece, colocando o On Error o erro não aparece mais. Porém no computador que eu uso mesmo com o On Error o erro continua a aparecer, mesmo todo o código funcionando perfeitamente.

Alguém sabe o que poderia ser isso?

A função é a seguinte:

Sub RemoverImg()
On Error Resume Next
Dim img As Shape
For Each img In ActiveSheet.Shapes
If Not Application.Intersect(img.TopLeftCell, Range("L10:M10")) Is Nothing Then
If Not img.Name Like "Drop Down *" Then img.Delete
End If
Next
End Sub