Buenas tardes,

tengo una macro que me hace un gráfico, el problema es que unas veces la ejecuto y me sale bien el gráfico y otras, cuando la ejecuto, (creo que depende de la columna en la que me situo) me añade un gráfico extraño con un montón de series que yo no he creado, ¿a qué se puede deber esto?

Saludos y gracias.

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

ActiveChart.Parent.RoundedCorners = True

ActiveChart.Location Where:=xlLocationAsObject, Name:="Principal"

n = Len("Principal")

x = Mid(ActiveChart.Name, n + 2, 20)

ActiveSheet.Shapes(x).IncrementLeft 200

ActiveSheet.Shapes(x).IncrementTop -51

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).Name = "=""Datos registrados"""

ActiveChart.SeriesCollection(1).XValues = "='Principal'!$A$8:$A$24"

ActiveChart.SeriesCollection(1).Values = "='Principal'!$B$8:$B$24"

lee las normas del foro, suerte