Comments on: VBA format a cell based on range contents http://itknowledgeexchange.techtarget.com/itanswers/vba-format-a-cell-based-on-range-contents/ Wed, 19 Jun 2013 09:51:42 +0000 hourly 1 By: vbanewb13 http://itknowledgeexchange.techtarget.com/itanswers/vba-format-a-cell-based-on-range-contents/#comment-63778 vbanewb13 Wed, 20 May 2009 06:04:28 +0000 #comment-63778 Here is what I ended up using

‘See if anyone is working Saturday 2nd Shift, if they are shade support cells yellow
If Application.WorksheetFunction.Sum(rngSat) <> 0 Then
wsOT.Range(“Y5:Y6,Y20,Y26,Y32,AA17,AA21:AA22,AA25,Y45:AA45″).Interior.Color = vbYellow

Else
wsOT.Range(“Y5:Y6,Y20,Y26,Y32,AA17,AA21:AA22,AA25,Y45:AA45″).Interior.Color = vbWhite

End If

‘See if anyone is working Sunday 2nd Shift, if they are shade support cells yellow
If Application.WorksheetFunction.Sum(rngSun) <> 0 Then
wsOT.Range(“Y13:Y14,Y22,Y28,Y34,Y48:AA48″).Interior.Color = vbYellow

Else
wsOT.Range(“Y13:Y14,Y22,Y28,Y34,Y48:AA48″).Interior.Color = vbWhite

End If

‘Change background color to white if info has been provided
For Each Cell In rngComp
If Cell.Text = “” Then
Cell.Interior.Color = vbYellow
ElseIf Cell.Text = “TBD” Then
Cell.Interior.Color = vbYellow
Else
Cell.Interior.Color = vbWhite
End If
Next Cell

]]>