title: VBA code to check each sheet, locate a cell containing =TODAY() function, and select that cell
body: <p>I have a workbook with 12 worksheets each named JANUARY through FEBRUARY.</p>
  
  <p>Only the current month's sheet (e.g., NOVEMBER) will ever contain a cell containing the function <code>=TODAY()</code> in mm/dd/yyyy date format.</p>
  
  <p>When I open the workbook, I want to automatically activate the Sheet that contains this cell (in my instance Cell <code>N2</code>) and <code>Select</code> it. I am truly a newbie learning slowly, but knowledge is minimal and can't find what I need. This what I have so far, but it doesn't work:</p>
  
  <pre><code>Sub ChooseSheet()
  Dim SearchString As Variant
  
  SearchString = "TODAY()"       'string I am searching for
  
  Do Until SearchString = "TODAY()"
  If Application.WorksheetFunction.CountIf(Sheets("Sheet1").Columns(14), SearchString) &gt; 0 Then
  Worksheets("Sheet1").Activate
              End If
          Exit Do                
  Loop
  
  End Sub
  </code></pre>