Terry Pinnell wrote:

Claus Busch wrote:

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.

Thanks very much Claus.

I forgot to add: Can you advise how I modify it to deal with this
slightly different scenario please. It's now the FIRST two that
indicate a redundant cell, not the last.

https://dl.dropboxusercontent.com/u/...omeCells-2.jpg

--
Terry, East Grinstead, UK