Check Box troubles

If sh.Name = "Waiting List" Then
        [COLOR=#0000ff]If CheckBox2.Value = False [/COLOR]Then GoTo a
        Call UpDatebyDR_EdRoster_BHousing_NO_Sort
        Call count
        MsgBox (sh.Name & " updated.")
        GoTo a
End If

Sub UpDate_Workbook()
Application.ScreenUpdating = False
Dim MacroWb As Workbook
Dim sh As Worksheet

Set MacroWb = Workbooks("MACROS-Student List_3.xlsm")

For Each sh In MacroWb.Worksheets
    If sh.Name = "SMs" Then GoTo a
    If sh.Name = "Yard" Then GoTo a
    If sh.Name = "Waiting List" Then
        [COLOR=#000080]If CheckBox2.Value = False [/COLOR]Then GoTo a
        Call UpDatebyDR_EdRoster_BHousing_NO_Sort
        Call count
        MsgBox (sh.Name & " updated.")
        GoTo a
    End If
    If sh.Name = "FULL Class List" Then
            If CheckBox2.Value = True Then Call UpDatebyDR_EdRoster_BHousing 'trying different way, using true not false
        MsgBox (sh.Name & " updated.")
        GoTo a
    End If
    If sh.Name = "TABE" Then
        If CheckBox2.Value = False Then GoTo a
        Call UpDateTABE
        MsgBox (sh.Name & " updated.")
        GoTo a
    End If

    If CheckBox2.Value = False Then GoTo a
    Call UpDatebyDR_EdRoster_BHousing
     MsgBox (shName & " updated.")
    End With
a:
Next sh
Application.ScreenUpdating = True
End Sub