Uso do Check Box no gráfico

Olá amigos,

Acredito que possa ser uma duvida fácil para alguns daqui, mas estou com dificuldade. Possuo um gráfico com três séries de dados - EX: arroz; feijão; batata. A minha ideia seria, clicando no check box do arroz por exemplo, sua legenda apagasse. Pensei no seguinte código:

Código:

Sub ApagaLegenda()

With ActiveChart
    For i = .SeriesCollection.Count To 1 Step -1
        If .SeriesCollection(i).Name = "arroz" Then
            .Legend.LegendEntries(i).Delete
        End If
    Next i
End With

End Sub

E quando clicasse novamente no check box, a legenda do arroz voltasse. Esse esta sendo o problema, criar um código para retornar com a legenda.

Peço a ajuda de vcs! Agradeço desde já.