title: Excel_VBA highlight cells which has current date and different time
body: <p>Need help to highlight the cell which contains today's date and a different time. The code that I wrote is here, but it can only highlight the cells with the current date. </p>
  
  <p>Sub Datechoose()</p>
  
  <pre><code>Dim rCell As Range
  With Worksheets("owssvr")
  
  For Each rCell In .Range("A2:M20")
      If rCell.Value = Date Then
          rCell.Interior.Color = vbGreen
      End If
  Next
  End With
  </code></pre>
  
  <p>End Sub</p>
  
  <p><a href="https://i.stack.imgur.com/5mCbI.jpg" rel="nofollow noreferrer">enter image description here</a></p>
  
  <p>My aim is to highlight the cells with the current date(6/22/2018 and time).
  Please help me out...</p>