Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if target.count 1 then exit sub
if isempty(target) then exit sub
If target.Address = "$B$9" Then
Select Case Target.Value
Case 1
target.Interior.colorIndex = 4
Target.Font.bold = True
Target.Font.Italic = True
Case 2
target.Interior.colorIndex = 5
Target.Font.bold = True
Target.Font.Italic = True
End Select
End if
End Sub

This is starter code since you didn't give any details on what, when, why,
where or how.

This fires when B9 is edited (code placed in the sheet module of the sheet
where you want this behavior).

there is also a calculate event

See Chip Pearson's page on events
http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy


"Markitos" wrote in message
...
I would like to have my wookbook change based on the input into a cell.
Under
conditional formatting I cant do it. I want to be able to change more the
the
"color" in a cell. THANK YOU FOR ANY ADVICE.