Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("H2:H31")) Is Nothing Then Exit Sub
Target = IIf(Target = "¨", "þ", "¨")
If Target.Value = "þ" Then
Target.Offset(, -7) = Date
Target.Offset(, -6) = Format(Time, "hh:mm")
Target.Offset(, 1).ClearContents
Else
Target.Offset(, -6).ClearContents
Target.Offset(, 1) = Target.Offset(, -1)
End If
Range("A1").Select
End Sub