Por favor alguien me pude ayuda con una macro para la siguiente rutina adjunto una imagen y les voy agradecer

Sub EliminarImágenes()
For Each imagen In ActiveSheet.Shapes
   If imagen.TopLeftCell.Row > 5 Then imagen.Delete
Next
End Sub

 

Bien gracias me funciono.. la verdad estoy aprendiendo recién a programar con macros muchas gracias..