Hi again,

Am Fri, 8 Apr 2016 21:57:24 +0200 schrieb Claus Busch:

Formulas = Name Manager = New
Name: Dates
Refers To:
=OFFSET($B$1,,,MATCH(--(YEAR(TODAY())&TEXT(MONTH(TODAY()),"00")&TEXT(DAY( TODAY()),"00")),$B:$B,-1))

if you want to color the 3 columns change the Refers To to:
=OFFSET($A$1,,,MATCH(--(YEAR(TODAY())&TEXT(MONTH(TODAY()),"00")&TEXT(DAY( TODAY()),"00")),$B:$B,-1),3)

and the macro to:

Sub RowH()
Range("A:C").Interior.ColorIndex = xlNone
With Range("Dates")
.EntireRow.RowHeight = 16
.Interior.ColorIndex = 6
End With
End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional