title: Enter Previous Workday into Active Cell
body: <p>How do I enter a formula to display the previous workday into the active cell using VBA. I've only found code that would cause today's date to appear in a message box. </p>
  
  <p>So my code currently ends with:</p>
  
  <pre><code>Selection.Copy
  Sheets("Inventory").Select
  ActiveSheet.Paste
  ActiveCell.Offset(20,4).Select
  </code></pre>
  
  <p>This pastes some data and then drops the active cell off exactly where I need it. At this point, I want to enter the previous workday, copy it, and paste it in all uninterrupted blank rows above it.</p>