Hi,

Below code is not working in macro

ActiveCell.Formula = "=if(B1=TODAY(),A1,"")"
please advice....