Bom dia!!

Preciso de uma ajuda, tenho uma arquivo que copio o grafico e colo em outro, porém antes de colar novamente preciso deletar o já existente só que conforme codigo abaixo cada colagem gera um nome diferente para o grafico e não consigo deletar, tem como programar de maneira que independente do nome do grafico ele delete.

Windows("Programação Unica.xls").Activate
ActiveSheet.Paste
ActiveSheet.ChartObjects("Gráfico 14").Activate
ActiveWindow.Visible = False
Selection.Delete