title: How to change the color of a tab based on cell value on that sheet
body: <p>I have several sheets in workbook.  Each sheet has a date in cell U2.  I would like to have all of the cells with a weekday value in U2 to have a tab color of green, and the tabs of the worksheets which have a weekend value in U2 to be yellow.  I have found how to change the color of the tab, but don't know how to specifically tell it "Sheet4" tab color green.  I am looking for the code to look like:</p>
  
  <pre><code>For each sht in Thisworkbook.worksheets
    If format(sht.Renge("U2"),"DDD") = "Saturday" _
      or format(sht.Renge("U2"),"DDD") = "Sunday" then
      sht.Tab.ColorIndex = "yellow"
    else
      sht.Tab.ColorIndex = "blue"
    end if
  Next
  </code></pre>
  
  <p>Here is the code I have been working with:</p>
  
  <pre><code>Sub sbColorAllSheetTab()
      'Declaration
      Dim iCntr, sht As Worksheet
  
  On Error GoTo ErrorHandler
  
      'Holds the colorIndex number
      iCntr = 2
  
      'looping throgh the all the sheets of the workbook
      For Each sht In ThisWorkbook.Worksheets
  
          'Debug.Print Format(sht.Range("U2"), "DDD")  'Tried to check value on sheet - failed
          iCntr = iCntr + 1
  
          'Applying the colors to Sheet tabs - works
          sht.Tab.ColorIndex = 10 'iCntr
  
          'Tried to print the value, but didn't work'
          'If I can confirm it sees the correct value in the sheet I can interrogate the value
          'Debug.Print sht.Name  '.Range("U2")
          Debug.Print sht.Range("U2") 'Failed
      Next
  
     Exit Sub
  ErrorHandler:
     ' Error handling code
     Beep
     Resume Next
  End Sub
  </code></pre>
  
  <p>Thanks</p>