This is just demo stuff:

Sub rick()

CurDte = Date
SubStr = Month(CurDte)

Set MyCell = ActiveSheet.Range("A2")
v = DateValue(MyCell.Value)
vm = Month(v)
If vm < SubStr Then
Set MyCell = MyCell.Offset(1, 0)
ElseIf vm = SubStr Then

End If
End Sub

Note we get v as the worksheet value
then calculate the month number as vm
we could get the day as

vd=Day(v)


Use these variables in your if/else/then logic
--
Gary''s Student - gsnu200720


"Rick" wrote:

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