Spell Check only Cell that has changed

Hello,
I am trying to run a VBA to spell check a cell that has been changed and not the whole sheet. I have tried the following....

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = True
' ~~>  Spell check changed cells in column 'D'
    If Target.Column = 4 Then
        Application.EnableEvents = False
            If ActiveCell.Row > 2 Then
                For Each Cell In Intersect(Target, Columns(4))
                    Selection.CheckSpelling
                Next
            End If
    Application.EnableEvents = True
    End If
End Sub

....and....

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = True
' ~~>  Spell check changed cells in column 'D'
    If Target.Column = 4 Then
        Application.EnableEvents = False
            If ActiveCell.Row > 2 Then
                    Selection.CheckSpelling
            End If
    Application.EnableEvents = True
    End If
End Sub

....but both check the whole sheet. I have also tried 'Cell.CheckSpelling' instead of 'Selection.CheckSpelling' in both sections but same issue.

Thank you.