Cambio de color

He probado el siguiente código y me funciona (el ejemplo controla todo el
rango A:B). No se si se me escapa algún supuesto.

En el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
' impide borrar el dato.
If Target.Value = Empty And Target.Offset(, 1).Value <> "" Then
Application.Undo
Target.Offset(, 1).Value = Target.Offset(, 1).Value - 1
If Target.Offset(, 1).Value = 0 Then Target.Interior.ColorIndex =
xlNone
Exit Sub
End If
If Target.Offset(, 1).Value = "" Then
' primera escritura.
Target.Offset(, 1).Value = 0
Else
' valor modificado.
Target.Offset(, 1).Value = Target.Offset(, 1).Value + 1
Target.Interior.ColorIndex = 33
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' impide acceder a la columna B.
If Target.Column = 2 Then ActiveCell.Offset(, 1).Select
If Target.Cells.Count > 1 Then
Selection.Select
' impide selección de rango múltiple que incluya A o B.
If ActiveCell.Column < 3 Then ActiveCell.Select
End If
End Sub

Saludos desde Tenerife.
************************
escribió en el mensaje
news:
Hola a todos, quisiera saber si es posible que teniendo una lista de
datos en la columna A8:A200 cambie de color (azul poe ejm) al
modificar por primera vez y cada vez que se modifique me indique en la
columna B las veces que se modifico (contador), ¿como uso el formato
condicional aqui, es necesario vb?desde ya gracias por su apoyo.

Saludos cordiales,
Juank