Hi Terry,

Am Fri, 8 Apr 2016 19:10:11 +0200 schrieb Claus Busch:

this is not possoble with a formula or CF.
You need VBA.

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))

Then in a standard module:

Sub RowH()
Range("B:B").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