Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A")) Is Nothing And Target.Count = 1 Then
If IsNumeric(CStr(Target)) Then
Application.EnableEvents = False
Target = Target / 60
Application.EnableEvents = True
End If
End If
End Sub