Toggle Seriescollection In A Chart

Series are added to a chart on a chartsheet in WB Retirement.xls with the following macro:

Sub AddMyWife()

Application. ScreenUpdating = False
Sheets("Chart").Select

With ActiveChart.SeriesCollection.NewSeries
. Name = "MyWife"
.Values = "='Retirement.xls'!MyWife"
End With

ActiveChart.SeriesCollection("MyWife").Select
With Selection.Border
.ColorIndex = 3
.Weight = xlThin
.LineStyle = xlContinuous
End With

With Selection
.MarkerStyle = xlDiamond
.MarkerSize = 3
.MarkerForegroundColorIndex = 3
.MarkerBackgroundColorIndex = 3
End With

Application.ScreenUpdating = True
ActiveChart.Deselect
End Sub

The series is deleted with:

Sub DeleteMyWife()
Sheets("Chart").Select
On Error Resume Next
ActiveChart.SeriesCollection("MyWife").Delete
ActiveChart.Deselect
End Sub...