Masquer série dans graphique excel

Bonjour,
Est il possible de masquer une ou plusieurs séries d'un graphique excel en VBA
avec un ChekBox pour chaque série que je peux cocher suivant le nombre de série que je souhaite faire apparaitre dans mon graphique en cliquant sur un bouton de commande.
j'ai commencé le code ci dessous, mais ça ne fonctionne pas !!!!!

le code:
Private Sub Com_Graph_Click()
Sheets("Graphe").Select
ActiveSheet.ChartObjects("Graphique 10").Activate
If Me.CheckNb_PT = True Then

With ActiveChart.SeriesCollection(1) ' "Nb PT" nom de la serie

.MarkerStyle = xlAutomatic
.Border.LineStyle = xlAutomatic
End With
Else
ActiveSheet.ChartObjects("Graphique 10").Activate
With ActiveChart.SeriesCollection(1)

.MarkerStyle = xlNone
.Border.LineStyle = xlNone
End With
End If
'******************************************
If Me.Check_FTP = True Then
With ActiveChart.SeriesCollection(2) ' "FTP" nom de la serie
.MarkerStyle = xlAutomatic
.Border.LineStyle = xlAutomatic
End With
Else
With ActiveChart.SeriesCollection(2)
.MarkerStyle = xlNone
.Border.LineStyle = xlNone
End With
End If
'*********************************************************************
If Me.CheckSN = True Then
With ActiveChart.SeriesCollection(3) ' "Quotité inutilisé Surnombre"nom de la serie
.MarkerStyle = xlAutomatic
.Border.LineStyle = xlAutomatic
End With
Else
With ActiveChart.SeriesCollection(3)
.MarkerStyle = xlNone
.Border.LineStyle = xlNone
End With

End If
End Sub
D'avance merci, meme pour les réponse négatives