Para colorear el interior de una celda que contiene una fecha y que esa fecha es sábado o domingo podemos utilizar la siguiente macro:
Este ejemplo en concreto colorea el fondo de la celda de gris si la fecha que contiene corresponde a un sábado y de rojo si corresponde a un domingo.
El código es fácilmente modificable para ampliar o reducir el rango en el que se ejecuta, para mostrar otro formato distinto de celda o para realizar unos cálculos u otros dependiendo del día de la semana.
Sub MarcarFinSemana()
Dim C As Range
For Each C In ActiveSheet.Range("A:A")
If IsEmpty(C) Then Exit Sub
If C = "Domingo" Or WeekDay(C) = 1 Then
With C.Interior
.ColorIndex = 3
End With
ElseIf C = "Sábado" Or WeekDay(C) = 7 Then
With C.Interior
.ColorIndex = 15
End With
End If
Next C
End Sub
