Or without an array

=SUMPRODUCT(--(TEXT($B$20:$B$507,"mm")=TEXT($D$5,"mm")))
VBA Noob