Check Box to hide/show a line thru a series of cells

[En4sir]

I am trying to show / hide some lines (basically to show that this area is Not applicable)

Screenshot is here: https://prominent.wetransfer.com/downloads/6b62206a80eab4f41513892cf4499e9e20180522162354/f9d0a56871addac95a4eecc83dea5b2c20180522162354/7d9101

Sub CheckBox22_Change()
  If CheckBox22.Value = True Then
    ' CF_Hide_Lines Macro
    ActiveSheet.Shapes.Range(Array("Straight Connector 2")).Select
    ActiveSheet.Shapes.Range(Array("Straight Connector 2", _
        "Straight Connector 4")).Select
    Application.CommandBars("Format Object").Visible = False
    Selection.ShapeRange.Line.Visible = msoFalse
  Else
    ActiveSheet.Shapes.Range(Array("Straight Connector 2")).Select
    ActiveSheet.Shapes.Range(Array("Straight Connector 2", _
        "Straight Connector 4")).Select
    Application.CommandBars("Format Object").Visible = True
    Selection.ShapeRange.Line.Visible = msoTrue
  End If
End Sub

Can someone please help me to understand what I am doing wrong?

Thanks,
Mark