Conditional Formatting Columns

[banerg]

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

 

[Tom Ogilvy]

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