Report Offensive Message

Many thanks ppg, I had worked out most of this except the "vbMonday", I currently use the TODAY() function but my workbook has a different sheet for each day of the week with tuesday relying on mondays date, which works fine until you have a bank holiday monday and start the week on the tuesday.
This should sort the problem though
Many thanks for the help and also thanks to winlak and ssharkins
Regards
Ian