Thx Tom. But the code is still coloring the blank columns same as th
max values. I was hoping to format ONLY the column max cells and res
of the tables with a different colorindex.

Anyways, if I changed the code to:

With Range("HHData").Columns(i)

If WorksheetFunction.CountBlank(.Cells) < .Rows.Count Then,

it does the required tasks.

Thanks anyways. Appreciate your help

--
baner
-----------------------------------------------------------------------
banerg's Profile: http://www.excelforum.com/member.php...fo&userid=1533
View this thread: http://www.excelforum.com/showthread.php?threadid=26963