Sub ColourMyWorld()
Set myRange = Selection
MyMax = WorksheetFunction.Max(myRange)
For Each Mycell In myRange
If Mycell.Value = MyMax Then
Mycell.Interior.ColorIndex = 3
Mycell.Interior.Pattern = xlSolid
End If
Next
End Sub
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"DaveM" wrote in message
. uk...
Hi all

How could i find down column B with a macro the highest number not
Conditional formatting, so if there's 5 cells with 2007 Highlight all
those cells.

Thanks in advance

Dave