Here is my VBA code, cannot run
Sub HideShowLine()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 5
If ActiveSheet.CheckBoxes("Check Box " & i).Value = -4146 Then
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(i).Format.Line.Visible = msoFalse
Else
ActiveSheet.ChartObjects("Chart 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 5
ActiveSheet.Shapes.Range(Array("Check Box " & i)).Select
Selection.OnAction = "HideShowLine"
Next i
End Sub