Sub ProcessCheckBox()

    Dim checkBoxActive As CheckBox: Set checkBoxActive = Worksheets("Start").CheckBoxes(Application.Caller)
    Dim sheetName As String: sheetName = checkBoxActive.Caption

    If checkBoxActive.Value = 1 Then
        Worksheets(sheetName).Visible = True
        'Debug.Print "Now is visible."
    Else
        Worksheets(sheetName).Visible = False
        'Debug.Print "visible = false"
    End If

End Sub