Jack,

It's hard to say if the code is correct or not because I am not exactly sure
what it is that you are doing.

The true test is whether your results are what you expect or not. If you're
getting the result you want, the code is probably good.

Bernie


"Jack Sons" wrote in message
...
Bernie,

I'm afraid I whined too early because with a little more thinking I made
the code work with the following change. Is it correct?

'Cells(myR, 1).EntireRow.Cells(1, myC).Copy
Cells(1, myC).Copy

Jack.



"Bernie Deitrick" <deitbe @ consumer dot org schreef in bericht
...
Jack Sons,

If by "the first cell of a row" you mean column A:

Sub TryNow()
Dim myR As Long
Dim myC As Integer

For myR = 2 To Cells(Rows.Count, Range("AK1").Column).End(xlUp).Row
myC = Application.Match(Application.Max(Cells(myR, Range("AK1").Column)
_
.Resize(1, 8)), Cells(myR, 1).EntireRow, False)
Cells(myR, 1).EntireRow.Cells(1, myC).Copy
Cells(myR, 1).PasteSpecial xlPasteFormats
Next myR
End Sub



--
HTH,
Bernie
MS Excel MVP


"Jack Sons" wrote in message
...
Hi all,

In rows 2 to and with 252 of my worksheet cells in colums AK up to and
including AR contain dates or blanks. In row 1 the cells in colums AK to
and with AR ("header cells") have different interior colors, their text
is bold and black except for AO1 and AR1 where the text is bold and
white.

I want the first cell of a row to have the same interior color and text
color of the header cell corresponding with the highest date (I mean:
date most in the future) in that row in colums AK to AR.

What code do I need?

Thanks in advance for your assistance.

Jack Sons
The Netherlands