Escreva um pedaço de código VBA para excluir todas as imagens na tabela do Excel

Sub Delete All Pictures() Dim iShp As Shape For Each iShp In ActiveSheet.Shapes If iShp.Type = msoPicture Then iShp.Delete End If Next iShp End Sub