单元格只点击未编辑时，如何禁止通过Macro添加时间戳？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Me.UsedRange) Is Nothing Then
            If Not Target.HasFormula Then
                Application.EnableEvents = False
                Target.Value = Target.Value
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub