Grafik löschen

habe ein Problem! Möchte eine Grafik mit Makro löschen!!

Mein Makro so far:

For Each Picture In Range("G6")
If Pictures.Count > 0 Then Pictures.Delete
Next

Aber statt nur das Bild zu löschen, werden sämtliche Grafiken auf dem Sheet gelöscht!
Wie ist das denn möglich, da ich doch das Feld genau zugewiesen haben!?

Danke!
Chris