The following vb code is my starting point. I need to test for the Month then
the day.
Col A is a date( a2 to a365). What do I do to this code to accomplish my
gola?

CurDte = Date
SubStr = Month(CurDte)
Set MyCell = ActiveSheet.Range("A2")
If MyCell.Value < SubStr Then
Set MyCell = MyCell.Offset(1, 0)
ElseIf MyCell.Value.Month = SubStr Then
Exit Do
End If