Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("B6")) Is Nothing Then Target.Value = TimeSerial(Left(Target, 2), Right(Target, 2), 0) End If Application.EnableEvents = TrueEnd Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("B6")) Is Nothing Then If Len(Target.Value) = 4 Then Target.Value = TimeSerial(Left(Target, 2), Right(Target, 2), 0) End If End If Application.EnableEvents = TrueEnd Sub