maybe

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N:N")) Is Nothing Then
If IsDate(Target) And Target.Value <= Date Then
'do something
End If
End If
End Sub

worksheet code

Mike

" wrote:

I am trying to run a macro when any cell in column 14 is less than or
equal to Today. Can anyone help?