Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("E5:E8")) Is Nothing Then
Target.Offset(0, 1) = Target * 24
End If
If Not Application.Intersect(Target, Range("F5:F8")) Is Nothing Then
Target.Offset(0, -1) = Target / 24
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("E5:E8")) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 1) = Target * 24
End If
If Not Application.Intersect(Target, Range("F5:F8")) Is Nothing And Target.Count = 1 Then
Target.Offset(0, -1) = Target / 24
End If
Application.EnableEvents = True
End Sub