title: how to change cell value daily
body: <p>I'm trying to change the cell value on Sheet 1 Col A from "Yes" to "No" everyday at 9am without having open the workbook manually. For instance, if the cell value at Sheet 1 Col A is "Yes" today, it needs to show "No" tomorrow at 9am. However, I can't make it changed automatically at that specific time. Can anyone help? Please see below for the example and my code. Thanks in advance.</p>
  
  <p><strong><em>TODAY at 1pm</em></strong>    </p>
  
  <pre><code> A  B
  no  1
  no  2
  yes 3
  no  4
  yes 5
  yes 6
  yes 7
  </code></pre>
  
  <p><strong><em>TOMORROW at 9.01am</em></strong></p>
  
  <pre><code> A  B
  no  1
  no  2
  no  3
  no  4
  no  5
  no  6
  no  7
  
  Option Explicit
  Public rTime As Date
  Sub time()
  rTime = Now + TimeValue("00:09:00")
  Application.OnTime EarliestTime:=rTime, Procedure:="CellValueAutoIncr1", schedule:=True
  Dim Sheet1 As Worksheet
  Dim lastrow As Integer
  Dim k As Integer
  Set Sheet1 = ThisWorkbook.Sheets("Sheet1")
  lastrow = Sheet1.Range("B" &amp; Rows.Count).End(xlUp).Row
  For k = 2 To lastrow
  If Sheet1.Cells(k, 1).Value = "yes" Then
  Sheet1.Cells(k, 1).Value = "no"
  End If
  Next k
  End Sub
  </code></pre>