hi
This sub will work, however the sub must be able to run automatically when
the cell value changes, so you must store this sub in a special location
such as in the ThisWorkbook object.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Range("B2").Interior.ColorIndex = 0
If Range("B2") Range("C2") Then Range("B2").Interior.ColorIndex = 3 'red

End Sub

Regards
Andrew Bourke



"Chillygoose " wrote in message
...
I need help changing the cell color of excel reports I receive.

when cell A1:A? cell D1:D? change cell color red

I cant use conditional formating because you have to input cell by
cell, it doesn't do a range.

I need to apply this macro/VBA to excel 2003 worksheets I receive and
apply to the whole document. I think it would be VBA, which I am not
very good with.

Any help is greatly appreciated.

Chilly


---
Message posted from http://www.ExcelForum.com/