In case you can't figure this out. Right click sheet tabview
codecopy/paste thischange color numbers to suit

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case LCase(Target)
Case "west": mc = 4
Case "east": mc = 5
Case "north": mc = 6
Case "central": mc = 7
Case Else
End Select

With Target
.Interior.ColorIndex = mc
.Font.Bold = True
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...

Merry Xmas from Texas
You could use a worksheet_change event in the sheet module with select
case

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Bob" wrote in message
...
What is the code to change the font to bold and also the color In a range
in
Column D for five or six different conditions? For example:

West change to RED
East Change to BLUE
North Change to Green
Central Change to Yellow

Thanks in advance.