But if you really want a macro then try this

Sub checkc1()
If Range("C1").Value = "excel" Then

Range("D1").Value = "Correct"
End If

End Sub