Sorry Peter you have lost me here!, can you explain what it was you were
trying to get me to do?

In your previous post you asked:
i am unsure how to add a line to the code
that will follow the criteria if activecell.value = Date then count

and in reply I suggested IsDate(ActiveCell)

But I can see now I misread your question, sorry!
I thought you wanted to check if the cell contain a valid date rather than
than if the cell contains today's date.

Regards,
Peter