Loading

Got a version of Excel that uses the
menu interface (Excel 97, Excel 2000, Excel 2002, or Excel 2003)?
**This site is for you!** If you
use a later version of Excel, visit
our *ExcelTips* site focusing on the ribbon interface.

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company.

Learn more about Allen...

ExcelTips FAQ

ExcelTips Resources

Ask an Excel Question

Make a Comment

Free Business Forms

Free Calendars

** Please Note:** This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later),

Trev has a table of sales forecasts by product that several users review and update. The forecasts are initially set with various formulas, but the users are allowed to override the formulas by entering a value into any cell that contains one of the formulas. If a user does this, it would be helpful for Trev to have Excel somehow highlight that cell.

There are a couple of approaches you can take. First, you could use conditional formatting to do the highlighting. Set the conditional formatting to "Cell Value Is" "Not Equal To" and then enter the formula as the comparison. This will tell you when the value in the cell does not equal whatever the formula is, but a potential "gottcha" is if the person overrides the formula with the result of that formula. For instance, if the formula would have produced a result of "27" and the user types "27" into the cell.

Another possibility is to define a formula in a named constant, and then use that named constant in a conditional format. Follow these steps:

- Choose Name from the Insert menu, then choose Define. Excel displays the Define Name dialog box. (See Figure 1.)
- In the Names in Workbook box, enter the name you want assigned to this formula. For this example, use
**CellHasNoFormula**. - Select whatever is in the Refers To box, at the bottom of the dialog box, and press
**Del**. This gets rid of whatever Excel had there before. - Enter the following formula in the Refers To box:
- Click OK.

** Figure 1.** The Define Name dialog box.

=NOT(GET.CELL(48,INDIRECT("rc",FALSE)))

Now you can set up some conditional formats and use this named formula in the format. Simply set the condition to "Formula Is" and enter the following formula in the condition:

=CellHasNoFormula

The formula returns True or False, depending on whether there is a formula in the cell or nor. If there is no formula, then True is returned and whatever format you specify is applied to the cell.

Another approach is to use a user-defined function to return True or False, and then set up the conditional format. You could use a very simple macro, such as the following:

Function IsFormula(Check_Cell As Range) As Boolean Application.Volatile IsFormula = Check_Cell.HasFormula End Function

You can then specify "Formula Is" in the conditional format, and use the following formula if, for instance, you are conditionally formatting cell C1:

=NOT(IsFormula(C1))

The formula returns True if there is no formula in the cell, so the conditional format is applied.

The only downside of using any of these formulas to determine if a formula is in the cell is that it cannot determine if the formula in the cell has been replaced with a different formula. This applies to both the macro approach and the defined formula approach.

A totally different approach is to rethink your worksheet a bit. You can separate cells for user input from those that use the formulas. The formula could use an IF function to see if the user entered something in the user input cell. If not, your formula would be used to determine a value; if so, then the user's input is used in preference to your formula. This approach allows you to keep the formulas you need, without them being overwritten by the user. This results in great integrity of the formulas and the worksheet results.

*ExcelTips* is your source for cost-effective Microsoft Excel training. This tip (3224) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Highlighting Values in a Cell.

*Related Tips:*

**Program Successfully in Excel!** John Walkenbach's name is synonymous with excellence in deciphering complex technical topics. With this comprehensive guide, "Mr. Spreadsheet" shows how to maximize your Excel experience using professional spreadsheet application development tips from his own personal bookshelf. Check out *Excel 2013 Power Programming with VBA* today!

I would agree that the last method is the best.

In earlier examples if the User entered =27 (rather than just 27) Excel sees this as a formula, and therefore the HasFormula property would return True.

However, as an alternative "Formula" property of a cell could be utilised. if the formula in the cell D1 was "A1 + B1 + C1/12" then the VBA code:

Range("D1").Formula = "=A1 + B1 + C1/12" would return TRUE if the formula was exactly as given in the string, which would highlight any tinkering with the formula.

If there are lots of cells to have this facility this can be very tedious entering individual formulas into each cells conditional formatting. With a little bit of added complication and in the example below its assumed the result is always based on values in cells in the same row then the formula would become:

Function IsFormula(Check_Cell As Range) As Boolean

IsFormula = (Check_Cell.Formula = "=A" & Check_Cell.Row & "+ B" & Check_Cell.Row & "+ C" & Check_Cell.Row & "/12")

End Function

In earlier examples if the User entered =27 (rather than just 27) Excel sees this as a formula, and therefore the HasFormula property would return True.

However, as an alternative "Formula" property of a cell could be utilised. if the formula in the cell D1 was "A1 + B1 + C1/12" then the VBA code:

Range("D1").Formula = "=A1 + B1 + C1/12" would return TRUE if the formula was exactly as given in the string, which would highlight any tinkering with the formula.

If there are lots of cells to have this facility this can be very tedious entering individual formulas into each cells conditional formatting. With a little bit of added complication and in the example below its assumed the result is always based on values in cells in the same row then the formula would become:

Function IsFormula(Check_Cell As Range) As Boolean

IsFormula = (Check_Cell.Formula = "=A" & Check_Cell.Row & "+ B" & Check_Cell.Row & "+ C" & Check_Cell.Row & "/12")

End Function