Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target
.Value = Left(.Value, 2) & ":" & Right(.Value, 2)
Application.EnableEvents = True
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Len(Target) = 5 And Right(Target, 1) = "c" Then
With Target
.Value = Left(.Value, 2) & ":" & Mid(.Value, 3, 2)
End With
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target,Range("timeCells")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target
If Len(Target) = 3 Then .Value = Left(.Value, 1) & ":" & Right(.Value, 2)
If Len(Target) = 4 Then .Value = Left(.Value, 2) & ":" & Right(.Value, 2)
Application.EnableEvents = True
End With
End Sub