Convert four digits to time upon data entry

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range
Set d = Intersect(Target, Range("A:A"))
If d Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each c In d
    If IsNumeric(c) And c <> "" And Not c.HasFormula Then _
        c = TimeValue(Format(c, "00\:00"))
        c.NumberFormat = "h:mm"
Next
Application.EnableEvents = True
End Sub

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Cells.Count > 1 Then Exit Sub
    If Not (Target.Formula Like "####") Then Exit Sub
 
    Target.Value = Date + TimeSerial(Left$(Target.Formula, 2), Right$(Target.Formula, 2), 0)
    Target.NumberFormat = "hh:mm"
 
End Sub

Option Explicit
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    If Target.Cells.Count > 1 Then Exit Sub
    If Not (Target.Formula Like "####") Then Exit Sub
 
    Target.Value = Date + TimeSerial(Left$(Target.Formula, 2), Right$(Target.Formula, 2), 0)
    Target.NumberFormat = "hh:mm"
 
End Sub