Como puedo volver a seleccionar un gráfico que acabo de crear

Creo una gráfica con el siguiente código:

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("GRAFICAS!$C$3:$K$6")

Después es lo quiero seleccionar para cortarlo y pegarlo en otra hoja con este código:

ActiveSheet. ChartObjects("18 Gráfico"). Activate
ActiveChart. Parent. Cut

Pero veo que cada vez se crea el gráfico con un nombre diferente

¿Cómo le puedo hacer?