Alternar color en celdas con un Clik del mouse

Hola Pablo
Mira a ver si esto te sirve aunque no las tengo todas conmigo, ya que lo
que hace al mismo tiempo que colorea la celda es ponerle un 1 del mismo
color para que luego en las filas de la columna A pongas la fórmula
=suma(B1:K1) desde la fila 1 a la 100.
Si ya tienes datos, por lo menos puedes utilizar la parte del color
interior de la celda quitando las tres instrucciones que sobran

Ya me dirás
Saludos
Javier B.
==
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:K100")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 3 'pone el color a la fuente
Target = 1 ' pone un 1 en la celda
Else
Target.Interior.ColorIndex = xlNone
Target = vbNullString 'elimina el 1 de la celda
End If
End If
End Sub
=

Pablo Fdez. escribió:

Necesito alternar el color de fondo de cada celda del rango B1:K100 ( un
Click pone rojo y otro Click pone blanco). Posteriormente sumar en el rango
A1:A100 el nº de celdas en rojo de cada fila.
He probado a crear macros y posteriormente editarlas para modificarlas pero
no logro avanzar. ¿Algún consejo o código VBA para lograrlo?
Pablo