Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Row - 12 <> Weekday(Date) Then Beep: Exit Sub
If Not Intersect([C13:C19], Target) Is Nothing Then
Target = Date
ElseIf Not Intersect([D13:D19,F13:F19], Target) Is Nothing Then
Target = Int(Time * 96 + 0.5) / 96
ElseIf Not Intersect([I13:I19], Target) Is Nothing Then
CreateObject("wscript.shell").SendKeys "{F2}"
End If
End Sub