Ok, this works nicely. However, I can not get it to use the value in the named range RptDte. I still get a type mismatch error. I have tried formatting the cell RptDate as Date, Text, General, mm-mmm, Number, nothing works.
In the watch window I get; Watch : : dte = [RptDte] : <Out of...