Excel - para JuanC

la tengo!!!!! y funciona!!

Sub COLOREAFILA()
fila = 4
col = 6

'ActiveSheet.Cells(I, 8).FormulaR1C1 = PEDIDO.Fields(2).Value
While ActiveSheet.Cells(fila, 1).FormulaR1C1 <> ""

If ActiveSheet.Cells(fila, col).FormulaR1C1 = "X" Then
If ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = "" Then
If Weekday(Date) = 2 Then
ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = (Date - 3)
Else
ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = (Date - 1)
End If
End If
Rows(fila).Interior.ColorIndex = 6
End If




fila = fila + 1
Wend


End Sub

gracias por el WEEKDAY

bien hecho! y gracias...

Saludos, desde Baires, JuanC