You could use:
Code:
Case "High": .Range.Cells(1).Shading.BackgroundPatternColor = 4739264: .Range.Cells(1).Range.Font.ColorIndex = wdWhite
Of course, then you'll probably need to change it back again for all of the others; otherwise you could end up with any other choice having white text if the user changes their mind.