title: How to add to current cell selection in Excel VBA
body: <p>So I have a loop that checks every cell in a column and finds a specific date (currently the Monday of the previous week). My code right now does select them correctly but I want it to keep the previous selection so in the end all cells of that specification are selected</p>
  
  <pre><code>Public Function LastMonday(pdat As Date) As Date
          LastMonday = DateAdd("ww", -1, pdat - (Weekday(pdat, vbMonday) - 1))
  End Function
  
  Sub Macro2()
  
   Macro2 Macro
  
  
  
  Dim rng As Range
  Dim curCellValue As String
  Dim mondayStr As String
  
  mondayStr = Format(LastMonday(Date), "dd/mm/yyyy")
  
  Set rng = Range(ActiveSheet.Range("E2"), ActiveSheet.Range("E2").End(xlDown))
  
  For Each Cell In rng
      curCellValue = Cell.Value
      If curCellValue = mondayStr Then Cell.Select
  Next Cell
  
  End Sub
  </code></pre>
  
  <p>As a bonus, to change the Function to a different day of last week would I simply change the vbMonday to vbTuesday etc? I admit I don't know VBA very well and most of this is just frankensteined from around here.</p>