Não consigo fazer com que gere nova planilha

Boa noite,

É o seguinte pessoal,

eu to começando e ainda não sei mexer muito com visual basic...

mas estou fazendo um trabalho e nele eu preciso que a pessoa informe valores pra tabela,e que essa tabela gere graficos...

entao desenhei um retangulo que quando voce clica ele gera o grafico da tabela!

Consegui fazer o codigo e gerar meu grafico, porem quando clico no retangulo novamente aparece " Erro em tempo de execucao 1004, o metodo location do objeto chart falhou".

Só que ao clicar em fim ele cria do mesmo jeito, so que da erro esse erro... Creio eu que é porque na primeira vez que eu clico ele cria um com o nome grafico, ai quando clica de novo ele nao consegue criar com o mesmo nome!!!

eu preciso(acho) de algum codigo que a cada vez que eu clico ele gere tipo " grafico1" "grafico2", como se fosse um contador!!!

obrigado e boa noite p todos!!

Sub Retângulo1_Clique()
Range("A1:C13").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Plan1").Range("A1:C13"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Gráfico"
End Sub