Checkbox disappear lines n chart?

I have a chart with allot of lines. Not all the lines are relevant all the time it depends on the situation.
On the internet i find this.

I changes the name of the chart and the number of the i's. But the macro still not finding the name of the chart. The title of the chart is NTU41 but is this the same as a chart name?

Sub HideShowLine()
  Application.ScreenUpdating = False
  Dim i As Integer
  For i = 1 To 7
    If ActiveSheet.CheckBoxes("Check Box " & i).Value = -4146 Then
      ActiveSheet.ChartObjects("NTU41").Activate
      ActiveChart.SeriesCollection(i).Format.Line.Visible = msoFalse
    Else
      ActiveSheet.ChartObjects("NTU41").Activate
      ActiveChart.SeriesCollection(i).Format.Line.Visible = msoTrue
    End If
  Next i
End Sub

Sub AssignMacro()
  Application.ScreenUpdating = False
  Dim i As Integer
  For i = 1 To 7
    ActiveSheet.Shapes.Range(Array("Check Box " & i)).Select
    Selection.OnAction = "HideShowLine"
  Next i
End Sub

I find it. But next problem. When i check or uncheck a box the layout of the chart can be changes even if the sheet is protected. That is not going to end well. Is there a solution?

I made a mess off the question!!

I have two questions. How can i change this macro for two charts with lines and bars. So filling and lines?
Chart 1 = Grafiek 1 with 7 boxes 1 to 7
Chart 2 = Grafiek 2 with 7 boxes 1 to 7

Sub HideShowLine()
  Application.ScreenUpdating = False
  Dim i As Integer
  For i = 1 To 7
    If ActiveSheet.CheckBoxes("Check Box " & i).Value = -4146 Then
      ActiveSheet.ChartObjects("Grafiek 1").Activate
      ActiveChart.SeriesCollection(i).Format.Line.Visible = msoFalse
    Else
      ActiveSheet.ChartObjects("Grafiek 1").Activate
      ActiveChart.SeriesCollection(i).Format.Line.Visible = msoTrue
    End If
  Next i

  
End Sub

Sub AssignMacro()
  Application.ScreenUpdating = False
  Dim i As Integer
  For i = 1 To 7
    ActiveSheet.Shapes.Range(Array("Check Box " & i)).Select
    Selection.OnAction = "HideShowLine"
  Next i
End Sub

Is it even possible?

I tried to separate the boxes and the lines without result. The i is corrupt!

Sub HideShowLine2()
  Application.ScreenUpdating = False
  
  
    Dim i As Integer
    For i = 1 To 7
    
    Dim J As Integer
    For J = 7 To 8
        If ActiveSheet.CheckBoxes("Check Box " & J).Value = -4146 Then
            ActiveSheet.ChartObjects("Grafiek 2").Activate
            ActiveChart.SeriesCollection(i).Format.Line.Visible = msoFalse
    Else
      ActiveSheet.ChartObjects("Grafiek 2").Activate
      ActiveChart.SeriesCollection(i).Format.Line.Visible = msoTrue
    End If

  Next i
  Next J

  
End Sub


Sub AssignMacro()
  Application.ScreenUpdating = False
  Dim i As Integer
  For i = 7 To 14
    ActiveSheet.Shapes.Range(Array("Check Box " & i)).Select
    Selection.OnAction = "HideShowLine2"
  Next i
End Sub

I see the problem but i don't know how to solve it.

Box 1 to 7 has to trigger ActiveChart.SeriesCollection(i).Format.Line 1 to 7 of grafiek 1
Box 7 to 14 has to trigger ActiveChart.SeriesCollection(i).Format.Line 1 to 7 of grafiek 2

But i don't know how to change the second macro to setup the boxes like that.
I really like the feature because i can see witch line (flow) is causes the problem. Then i can disable the other lines and make a other chart visible to see what is causing the flow drop.