title: how to change the value of cells with past date
body: <p>i am trying to select only past dates in a range. So in the column B, I need that all the cells with a date previous from today say "date already gone". I am a beginner and have tried this code but its not working.</p>
  
  <pre><code>Sub FilterDateBeforeToday()
  
  Set rrg = "dd/mm/yyyy"
  
  rrg = Range("b1:b2000")
  If rrg = Now - 1 Then
  
  ActiveCell.Value = "data already gone"
  
  End If
  End Sub
  </code></pre>
  
  <p>Can someone help me with that?</p>