Entering time using decimal place or Colon

That look suspiciously like my old code.

Anyway

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "C4:V23"
    
    On Error GoTo ws_exit:
    Application.EnableEvents = False

    If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
    
        With Target
        
            If IsNumeric(.Value) And .Value >= 0 Then
            
                .Value = (Int(.Value) + (.Value - Int(.Value)) * 100 / 60) / 24
                .NumberFormat = "[h]:mm"
            End If
        End With
    End If
    
ws_exit:
    Application.EnableEvents = True
End Sub

Originally Posted by Bob Phillips

That look suspiciously like my old code.

That cos it was your code i found

That fixes the 0.3 problem but now if you try and enter 1:00 it changes it to 0:04 instead of leaving it as 1:00

Any sugestions?

Thanks, Mira.

I forgot to say I know nothing about VBA so I am unable to diagnose the problem my self.
Any help is much appreciated

Mira.