VBA for today date in cell

Hi

I want VBA to set if my active sheet cell L41 have today date then print if not then display a message to correct the date. I have 31 sheet in my workbook for each day of the month.

Thanks
RR