Format Cell that hold a formula using a UDF and Conditional formatting

**CliffB382** · 04-08-2012, 09:18 PM

I am having trouble with the following UDF

Function FormulaCell(Rge) As Boolean
FormulaCell = Rge.HasFormula
End Function

Then I set the Conditional format = FormulaCell(A1)

This method is available in many places on the inet but I cannot get it to work.
I am using an .xlsm file with Macros enabled so it's not that

Any thoughts?

CliffB

**mikerickson** · 04-08-2012, 10:16 PM

It works for me. Is the code for the UDF in a normal code module, not a Sheet's code module nor ThisWorkbook code module?

**CliffB382** · 04-09-2012, 12:20 AM

Hi Mike

Should it not work as long as the scope is Workbook?

Cliff

**mikerickson** · 04-09-2012, 01:37 AM

Try it in a normal module. Apparently it isn't working the way it is, where it is.

As a general rule, I try to keep code out of an object's module unless it needs to be there.

You also might try declaring the argument.

Please Login or Register  to view this content.

By the way,
you should precede your lines of code with [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code]
When you see this in the edit window:
[code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code]

This is what it looks like on the board

Please Login or Register  to view this content.

**CliffB382** · 04-09-2012, 01:55 PM

Thanks Mike

This did not turn out to be the problem - I was thinking that the reference to A1 would mean the application to the first cell in the range - but I needed to put in the address of the current cell ie if you are in B7 then use the formula =FormulaCell(B7)

Really this sounds stupid now that I write down what I did - I know you and everybody else have never made this type of mistake (sic) so I know it is only me being me.

Anyway, your post seemed to enable my own thinking and I solved it as above

CliffB