VBA - makro uafhængig af navn på diagram

Hej eksperter,

Et simpelt spørgmål, jeg vil meget gerne kunne formattere en hvilken som helst graf, uafhængig af diagrammets navn (eks.
"diagram 40").

Hvordan gør jeg det? Jeg får fejl i nedenstående kode, så snart makroen når til "diagram 40".. Kan jeg declear en variabel i starten, der gammer navnet på selected diagram?

Sheets("Ark3").DrawingObjects("Diagram 40").RoundedCorners = False
Sheets("Ark3").DrawingObjects("Diagram 40").Shadow = False


På forhånd tak for hjælpen :)