sheet tab color change macro

[kendel]

Hello, I'm using Excel 2007 and Windows XP

Basically I'd like to change or not change the sheet tab color automatically dependent on a cell's content or lack of content.

I'm using an IF formula that enters a "1" or it remains an empty cell. I want to change that sheet tab color depedent on the "1", say green and no change for the blank. I would like the macro to be run automatically when the cell is populated. The sheet is used to record data by the Data Entry dept and several cells contain formulas based on the data. When bad data is entered, the cell that contains the IF formula will display the 1.

When I open the workbook I'll be able to see at a glance which sheets need attention and correct the bad data.

Thanks for any help with this as I have no idea how this could be done.
Kendel

 

[tygrrboi]

at the start of the macro

Dim calcsetting
calcsetting = Application.Calculation
Application.Calculation = xlCalculationAutomatic

and this to the end of that same macro

Application.Calculation = calcsetting

 

[tygrrboi]

If that doesnt do it...

You could try throwing in
Application.Calculate before the code runs...

 

[asggold]

Thank you both SO much for helping me with this.

tygrrboi - your additional code suggestion in post #31 worked. When I click the button now everything just works.