Have struggled on with a new approach, but am running into trouble with the data entry of time. It would be so much more effecient if it were possible to simply use the numeric keyboard to enter times rather than having to use the Shift + Colon keystrokes.
I had found some code on the net which said it was the way to go but something appears wrong.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vVal As Integer
If Target.cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("H3:M368") Is Nothing Then Exit Sub
With Target
vVal= Format(.Value, "0000")
If IsNumeric(vVal) And Len(vVal) = 4 Then
Application.EnableEvents = False
.Value = Left(vVal, 2) & ":" & Right(vVal, 2)
.NumberFormat = "[h]:mm"
End If
End With
Application.EnableEvents = True
End Sub
I placed this in the Sheet in which I wanted the code to run, and when I enter a time such as 07.00 for 7am.... the value in the cell reflects both a date and a weird time.