Urgente Borrar Graficos

[mrocf]

Hola !
La sugerencia de abrahamvj está en la línea de satisfacer tu necesidad, pues si la trabajas un poco llegarás al siguiente código:

Código:

Sub Macro1()
    For j = 1 To ActiveSheet.DrawingObjects.Count
        If Left(ActiveSheet.DrawingObjects(j).Name, 5) = "Chart" Then
            ActiveSheet.DrawingObjects(j).Delete
        End If
    Next j
End Sub

Prueba con él y luego nos cuentas.

Saludos.