Are you sure you have run debug - (spelling mistake for 'TRUE')

Private Sub chkChristmas_Click()

    If chkChristmas Then
        HolSF(2, 1) = Ture
    Else
        HolSF(2, 1) = False
    End If
    
End Sub

Private Sub chkChristWeek_Click()

    If chkChristWeek Then
        HolSF(1, 1) = Ture
    Else
        HolSF(1, 1) = False
    End If
    
End Sub

Private Sub chkNewYear_Click()
    
    If chkNewYear Then
        HolSF(1, 1) = Ture
    Else
        HolSF(1, 1) = False
    End If
    
End Sub