Hi Rick, thanks for the assistance. I edited to the code below and
I'm getting a run time error "Object required".

Sub TestYearEffYr()
Dim cellyear As Range
Set cellyear = Year(Range("p4").Value)
If cellyear < Year(Now) Or cellyear Year(Now) + 1 Then
MsgBox "That is not a good date!"
End If
End Sub


On Aug 12, 4:21*pm, "Rick Rothstein"
wrote:
Something like this maybe...

CellYear = Year(Range("A1").Value)
If CellYear < Year(Now) Or CellYear Year(Now) + 1 Then
* MsgBox "That is not a good date!"
End If

--
Rick (MVP - Excel)

"Ron" wrote in message

...



Hello all,

I need code to confirm that the date in a cell is either in the
current year or the upcoming year and flag it if it's not. *Assistance
appreciated. *Thanks, Ron- Hide quoted text -

- Show quoted text -