I want to highlite the highest number in each row. Some cells could be empty
at times.
Is it also posible to take that highest number and send to print or send to
another sheet with the name of the colum. (joe etc.)
joe bill tom sue mary
a 50 34 102 20 2
b 10 35 99 5 3
c 2 56 10 1
d 13 5 55

You can highlight the cell with the maximum value by using conditional
formatting.

Select the range to highlight (say A2:E99)
Then with A2 the activecell
format|conditional formatting
formula is:
=A2=Max($a2:$e2)
and give it a nice format.

You can return the highest value with a formula like this in F2:
=max(a2:E2)

You can return the name of the first highest value (in G2???):
=index($a$1:$E$1,match(max($a2:$e2),$a2:$e2,0))

Harry wrote:

I want to highlite the highest number in each row. Some cells could be empty
at times.
Is it also posible to take that highest number and send to print or send to
another sheet with the name of the colum. (joe etc.)
joe bill tom sue mary
a 50 34 102 20 2
b 10 35 99 5 3
c 2 56 10 1
d 13 5 55

--

Dave Peterson

Hi Harry

In H2 enter
=INDEX($1:$1,MATCH(MAX(A2:E2),A2:E2,0))
Copy down as required.

There is no way you can get a formula to send data to a printer or to
another sheet.
You could, on another Sheet say Sheet2, enter in A1
=Sheet1!H2
and copy down

--
Regards
Roger Govier

"Harry" wrote in message
...
I want to highlite the highest number in each row. Some cells could be
empty
at times.
Is it also posible to take that highest number and send to print or send
to
another sheet with the name of the colum. (joe etc.)
joe bill tom sue mary
a 50 34 102 20 2
b 10 35 99 5 3
c 2 56 10 1
d 13 5 55

Copies from activesheet to sheet 4
Sub gethighest()
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
With Sheets("sheet4")
lr = .Cells(Rows.Count, i).End(xlUp).row
.Cells(1, i) = Cells(1, i)
.Cells(2, i) = Application.Max(Range(Cells(2, i), Cells(lr, i)))
End With
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Harry" wrote in message
...
I want to highlite the highest number in each row. Some cells could be
empty
at times.
Is it also posible to take that highest number and send to print or send
to
another sheet with the name of the colum. (joe etc.)
joe bill tom sue mary
a 50 34 102 20 2
b 10 35 99 5 3
c 2 56 10 1
d 13 5 55

Correction

Sub gethighest()
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, 1).End(xlUp).row
With Sheets("sheet4")
..Cells(1, i) = Cells(1, i)
..Cells(2, i) = Application.Max(Range(Cells(2, i), Cells(lr, i)))
End With
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Harry" wrote in message
...
I want to highlite the highest number in each row. Some cells could be
empty
at times.
Is it also posible to take that highest number and send to print or send
to
another sheet with the name of the colum. (joe etc.)
joe bill tom sue mary
a 50 34 102 20 2
b 10 35 99 5 3
c 2 56 10 1
d 13 5 55

Actually, even though the formula itself cannot send data to a printer,
there's an easy way to print it out...

1. Add an additional column to the sheet called MAXIMUM.
2. Set the value of each cell to the maximum value of the other entries in
that row.
3. Select that column using Set Print Area.
4. Print!

"Roger Govier" wrote:

Hi Harry

In H2 enter
=INDEX($1:$1,MATCH(MAX(A2:E2),A2:E2,0))
Copy down as required.

There is no way you can get a formula to send data to a printer or to
another sheet.
You could, on another Sheet say Sheet2, enter in A1
=Sheet1!H2
and copy down

--
Regards
Roger Govier

"Harry" wrote in message
...
I want to highlite the highest number in each row. Some cells could be
empty
at times.
Is it also posible to take that highest number and send to print or send
to
another sheet with the name of the colum. (joe etc.)
joe bill tom sue mary
a 50 34 102 20 2
b 10 35 99 5 3
c 2 56 10 1
d 13 5 55