tried this but macro fails on "Range(MySelection).Select" as "myselection" is not set by inputbox.

When you say it works fine for you have you added conditional formatting to worksheet cell B1 as per description of problem? Also the conditional formatiing must contain a function e.g. "cell value is less than =today()-6"