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

The results would only be different if you had values in cells in that
column that were outside the range HHData.

But you asked: "How can I search for empty columns"

So apparently you meant empty only within the HHData range. In any event,
the same modification to my code would handle that and require fewer
operations.

For i = 1 To NCol
With Range("HHData").Columns(i)
If Application.CountA(.cells) < 0 Then
.FormatConditions.Delete

--
Regards,
Tom Ogilvy



"banerg" wrote in message
...

Thx Tom. But the code is still coloring the blank columns same as the
max values. I was hoping to format ONLY the column max cells and rest
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.


--
banerg
------------------------------------------------------------------------
banerg's Profile:
http://www.excelforum.com/member.php...o&userid=15339
View this thread: http://www.excelforum.com/showthread...hreadid=269636