The conditional format is not in the macro. Formulae is

=AND(G1<"",(MOD(COUNTA(G1:DA1),2)=0))

The conditional format basically inverts the font and the background if the
number of entries per each row is even and does nothing if it's odd.

The macro itself is manipulating with the dates recorded in each row
starting from column G and going all the way to column DA. There are some
calculations, etc., and in the end I'm deleting all columns from G to DA.
Conditional format does not work anymore, of course.

P.S. Sorry it took me a while to reply - Was getting home from work...

Val




"Tom Ogilvy" wrote:

before you delete any cells, in your code, loop down the conditional format
column, count the number of blank cells in each the row and apply the
appropriate colorindex to the Interior.ColorIndex property for that row.
When the loop is complete then you can remove the conditional formatting so
it doesn't interfere and do the current snap report.

--
Regards,
Tom Ogilvy



"Val" wrote in message
...
I applied conditional format to a range of cells in the first column.
Conditional format is based on the number of non-blank cells in each row.
I
also made a macro to produce a snap report. Macro eventually deletes a
bunch
of columns and I'm loosing the conditional format. The column with
conditionally formatted cells remains intact.

Is there any way I can convert the conditional format into regular format
in
my macro so I can keep the colours on my report? If not, any suggestions?

Thanks a lot,

Val