View Single Post
 
Old 03-13-2015, 06:51 AM
gmaxey gmaxey is offline Windows 7 32bit Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,437
gmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the rough
Default

Code:
Select Case fcnCellText oRow.Cells(lngIndex)
  Case "Y", "Y*"
      oRow.Cells(lngIndex).Range.Select
      oRow.Cells(lngIndex).Range.Shading.BackgroundPatternColor = wdColorRed
 Case Else 'Do nonthing
 
 End Select
You could use a Content Control dropdown "Yes/No"
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote