Vlookup find and replace

Hi,

Starting from Sheet2 I would like to do a macro which looks for today's date in Sheet1 column B then it goes to two cells to its right and looks for number 1 and replaces it with number 2 (so CTRL-F function).

Ex. if today's date is in cell B10 of Sheet1 macro will look at cells C10 and D10 and if these have a number 1 this will be replaced by a number 2.

How do I do that?

Thanks,
Nix