Excel - agragar color a celda contigua urgente

como quedaria la funcion para que al escribir en a1 FB me ponga la celda b1 de color rojo
y en a2 al escribir FB2 me ponga verde la celda b2

Probá con formato condicional

Gracias, pero en formato condicional solo me permite poner 3 condiciones y tengo que agregar como 15, existe alguna forma de hacerlo, desde el editor de visual.
gracias.

Ahora queda más claro...
Si, dese VBA seguro q se puede...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = Range("A1") Then
If LCase(Target.Value) = "FB" Then
[B1].Interior.ColorIndex = 3
End If
End If
End Sub

Saludos desde Baires, JuanC

algo anda mal, me marca error en la segunda linea: if target=range("a1") then,
que hice mal?

Dónde colocaste el código??
Debe ir en el evento Worksheet_SelectionChange

Saludos desde Baires, JuanC

asi es lo coloque en el evento Worksheet_SelectionChange y al ejecutarlo aparece el error en la segunda linea:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = Range("A1") Then
If LCase(Target.Value) = "FB" Then
[B1].Interior.ColorIndex = 3
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
If UCase(Target.Value) = "FB" Then
[B1].Interior.ColorIndex = 3
End If
End If
End Sub

Espero q ahora funcione...