title: Find any date value which format is dd-mmm-yy in a column and change that cell color
body: <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>