do you really need a macro?

A formula will do it. try this in D1

=if(C1="excel","Correct","")