Stop Makro, hvis betingelsen er falsk

Jeg står og skal lave 2 makroer, der henholdsvis tilføjer og fjerner en dataserie i en graf.

Det kan også godt lade sig gøre, men for hver af de 2 makroer får jeg et problem:

Tilføj-Makro: Her er problemet, at jeg kan blive ved at trykke på knappen, hvorefter makroen tilføjer datasereien igen og igen. Den skal selvfølgelig kun kunne gøre det, hvis serien ikke er i grafen.

Fjern-Makro: Her er problemet, at debuggeren går igang, hvis man trykker på fjern-knappen uden at dataserien er i grafen, f.eks. hvis man kommer til at klikke 2 gange.


Koden fremgår her. Jeg håber nogen kan hjælpe

Sub Tilføj()
'
' Tilføj Macro
'

'
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(8).Name = "='Uddata S26'!$A$6"
    ActiveChart.SeriesCollection(8).Values = "='Uddata S26'!$B$6:$Y$6"
    ActiveChart.SeriesCollection(8).ChartType = xlLine
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
End Sub
Sub Fjern()
'
' Fjern Macro
'

'
        ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(8).Delete
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
   
End Sub