Private Sub UserForm_Initialize()

    With ChooseName

        .AddItem "Name1"

        .AddItem "Name2"

        .AddItem "Name3"

    End With

    ChooseName.Value = ""
    
    TimeEntry1.Value = ""

    TimeEntry2.Value = ""

    TimeEntry3.Value = ""

    TimeEntry4.Value = ""

    TimeEntry5.Value = ""

    TimeEntry6.Value = ""

    TimeEntry7.Value = ""

    TimeEntry8.Value = ""

    TimeEntry9.Value = ""

    TimeEntry10.Value = ""

    TimeEntry11.Value = ""

    TimeEntry12.Value = ""

    TimeTotal.Value = ""
    
    ChooseName.SetFocus

End Sub

Private Sub ResetButton_Click()

    Call UserForm_Initialize

End Sub

Private Sub CancelButton_Click()

    Unload Me

End Sub

Private Sub SubmitButton_Click()

    If ChooseName.Value = "" Then
    
        MsgBox "Please choose your name, this is Mandatory"
        
        Exit Sub
        
    End If
    
    If TimeEntry1.Value = "" Then
    
        TimeEntry1.Value = "0"
        
    End If
    
    If TimeEntry2.Value = "" Then
    
        TimeEntry2.Value = "0"
        
    End If
    
    If TimeEntry3.Value = "" Then
    
        TimeEntry3.Value = "0"
        
    End If
    
    If TimeEntry4.Value = "" Then
    
        TimeEntry4.Value = "0"
        
    End If
    
    If TimeEntry5.Value = "" Then
    
        TimeEntry5.Value = "0"
        
    End If
    
    If TimeEntry6.Value = "" Then
    
        TimeEntry6.Value = "0"
        
    End If
    
    If TimeEntry7.Value = "" Then
    
        TimeEntry7.Value = "0"
        
    End If
    
    If TimeEntry8.Value = "" Then
    
        TimeEntry8.Value = "0"
        
    End If
    
    If TimeEntry9.Value = "" Then
    
        TimeEntry9.Value = "0"
        
    End If
    
    If TimeEntry10.Value = "" Then
    
        TimeEntry10.Value = "0"
        
    End If
    
    If TimeEntry11.Value = "" Then
    
        TimeEntry11.Value = "0"
        
    End If
    
    If TimeEntry12.Value = "" Then
    
        TimeEntry12.Value = "0"
        
    End If

    ActiveWorkbook.Sheets("Data").Activate

    Range("A2").Select

    Do

    If IsEmpty(ActiveCell) = False Then

        ActiveCell.Offset(1, 0).Select

    End If

    Loop Until IsEmpty(ActiveCell) = True

    ActiveCell.Value = ChooseName.Value

    ActiveCell.Offset(0, 1) = DatePicker.Value

    ActiveCell.Offset(0, 2) = TimeEntry1.Value

    ActiveCell.Offset(0, 3) = TimeEntry2.Value

    ActiveCell.Offset(0, 4) = TimeEntry3.Value

    ActiveCell.Offset(0, 5) = TimeEntry4.Value

    ActiveCell.Offset(0, 6) = TimeEntry5.Value

    ActiveCell.Offset(0, 7) = TimeEntry6.Value

    ActiveCell.Offset(0, 8) = TimeEntry7.Value

    ActiveCell.Offset(0, 9) = TimeEntry8.Value

    ActiveCell.Offset(0, 10) = TimeEntry9.Value

    ActiveCell.Offset(0, 11) = TimeEntry10.Value

    ActiveCell.Offset(0, 12) = TimeEntry11.Value

    ActiveCell.Offset(0, 13) = TimeEntry12.Value

    ActiveCell.Offset(0, 14) = TimeTotal.Value

    Range("A2").Select
    
    Unload Me

End Sub

Private Sub TimeEntry1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub

Private Sub TimeEntry2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub

Private Sub TimeEntry3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub
Private Sub TimeEntry12_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 48 To 57 'Nos 0 - 9
        
            Exit Sub

        Case Else

            Application.EnableEvents = False

            KeyAscii = 0

            Application.EnableEvents = True

            Beep

    End Select

End Sub

Private Sub TimeEntry1_Change()

    TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)

End Sub

Private Sub TimeEntry2_Change()

    TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)

End Sub

Private Sub TimeEntry3_Change()

    TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)

End Sub

Private Sub TimeEntry4_Change()

    TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)

End Sub

Private Sub TimeEntry5_Change()

    TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)

End Sub

Private Sub TimeEntry6_Change()

    TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)

End Sub

Private Sub TimeEntry7_Change()

    TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)

End Sub

Private Sub TimeEntry8_Change()

    TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)

End Sub

Private Sub TimeEntry9_Change()

    TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)

End Sub

Private Sub TimeEntry10_Change()

    TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)

End Sub

Private Sub TimeEntry11_Change()

    TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)

End Sub

Private Sub TimeEntry12_Change()

    TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "You can't close the dialog like this!"
    End If
End Sub