If Today()="2021/04/17" Then

Range("A1").Interior.Color = 256

〜とか条件加えればいいんじゃね