Find any date value which format is dd-mmm-yy in a column and change that cell color
<pre><code>Sub Hello()

Dim lRow As Integer
Dim MR As Variant
Dim Cell As Variant
lRow = Range("A" &amp; Rows.Count).End(xlUp).Row
Set MR = Range("A2:A" &amp; lRow)

        For Each Cell In MR
        If Cell.Value = Format(Date, "dd-mmm-yy") Then Cell.Interior.ColorIndex = 10
        Next


End Sub
</code></pre>

<p>I am Trying to find any date value with this format "10-Jan-16" in whole column A but this code is not working, </p>