Issue when inputting time in a cell formmatted in [h]:mm:ss

Question

In this sheet when you put in a time, say 20 (this sheet is used for our 24-hour call-out recording) it returns a time in the cell that is equal to 24xThe time that was type in, so for this example 480:00. In the formula bar it shows this. 1/20/1900 12:00:00
AM. But if I instead type 20:00 it works the way it is supposed to. It obviously isn't an issue to type the :00 but when in the sense of time just typing 20 or 10 or whatever the time is should suffice.
Any help would be appreciated.

Answer 1

Say we are inputting values in column A.  First format the cells in column
A as Text.  Then insert the following event macro in the worksheet code area:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, r As Range, rInt As Range, _
hrs As Integer, mins As Integer, secs As Integer
Set A = Range("A:A")
Set rInt = Intersect(Target, A)
If rInt Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In rInt
s = r.Text
r.Clear
r.NumberFormat = "[h]:mm:ss"
If InStr(1, s, ":") = 0 Then
r.Value = TimeSerial(CInt(s), 0, 0)
GoTo bottom
End If
ary = Split(s, ":")
hrs = CInt(ary(0))
mins = CInt(ary(1))
If UBound(ary) = 1 Then
secs = 0
Else
secs = CInt(ary(2))
End If
r.Value = TimeSerial(hrs, mins, secs)
bottom:
Next r
Application.EnableEvents = True
End Sub
gsnu201408