Foros del web, para los que viven de bits

Hola amigos foreros. el caso es que estoy tratando de hacer una macro en excel que me permita cambiar el color de todos los datos de una fila si se cumple una condición, en este caso si el valor de la celda es "si". Hasta el momento lo que he hecho es lo siguiente:

Sub Cambiar_Colorvba()

For Each Cell In Selection

If Cell = si Then

Cell.Select
ancla = ActiveCell.Address
ActiveCell.End(xlToRight).Select
Range(ancla, ActiveCell).Select
Selection.Font.ColorIndex = 3

End If

Next

End Sub

el caso es que cuando ejecuto la macro no me funciona alguno de ustedes podria decirme donde esta el error o como podria hacer esto, es la primera vez que trato de hacer una macro les agrdeceria la ayuda prestada.

chao

Para un caso sencillo como ese no precisas macros, utiliza

FORMATO - FORMATO CONDICIONAL

defines la condición en tu caso que determinada celda contenga "SI" para lo cual lo ingresas como una función del tipo

A$4$="SI"

suponiendo que tu celda de consulta es A4

y luego en formato defines el color de relleno en TRAMA