Paul -- Can you show me how to change the font color to white when the text = "High"?

Case "Risk"
Select Case .Range.Text
Case "High": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264
Case "Moderate": .Range.Cells(1).Shading.BackgroundPatternColor = 5232127
Case "Low": .Range.Cells(1).Shading.BackgroundPatternColor = 5880731
Case Else: .Range.Cells(1).Shading.BackgroundPatternColorInde x = wdNoHighlight
End Select