You dont need VBA for this. Conditional formatting of cell B1: choose'Formula is:' and enter this:=B1=MAX(B$1:B$5)and set how you want it to be highlighted. Then using the FormatPainter icon on the Standard Toolbar, copy to B2:B5.