
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b2:b4")) Is Nothing Then Exit Sub
On Error GoTo RestablecerEventos
Application.EnableEvents = False
Target = Format(Target, "0:00:00")
RestablecerEventos:
Application.EnableEvents = True
End Sub


Usuarios navegando por este Foro: mandibulin2004, oskitz y 5 invitados