Hi,
I have entered the following code in the worksheet in order to produce a check mark on clicking in the cell:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "G3:G50" '<=== change to suit

    On Error GoTo err_handler
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then
        With Target
            .Font.Name = "Marlett"
            Select Case .Value
                Case "a":    .Value = ""
                Case Else:   .Value = "a"
            End Select
            .Offset(0, 2).Select
        End With
    End If
err_handler:
    Application.EnableEvents = True
End Sub
and it works really well. However, I would now like to trigger the check mark when a date is entered in column H. I have it formatted as "mm.dd.yyyy". Is there any way to do this? I am not really very familiar with Excel and would appreciate any assistance possible. Hope I've done this right as it's my first post.
Thanks