How to test if a specified cell contains a formula?

[lovallee]

Hello

Which formula can I use to test if a specified cell contains a formula?

Louis

 

[Cyankee]

You have to place that code in a general macro module.

Here's how I do it...

Right click any sheet tab
Select: View code
Goto the menu Insert>Module
Paste the code into the window that opens on the right
Close that application to return to Excel

Now, try the function.

Enter a simple formula in cell A1: =SUM(Z1:Z10)

Enter this formula in B1: =IsFormula(A1)

You should get a result of TRUE.

Interesting, I can follow those steps, but it only works in a conditional format statement. I cannot get it to work as a formula in a cell.

 

[Cyankee]

Scratch that, it is working now. Seems there was some delay for it to start working. Wierd.

 

[EssKayKay]

You can use a VBA UDF (user defined function):

Function IsFormula(cell_ref As Range)
    IsFormula = cell_ref.HasFormula
End Function

Then you'd use it just like any other worksheet function:

=IsFormula(A1)

This will return either TRUE or FALSE.

Hey Guys,

I realize this is an old post but just wondering - Is there a way to include this function in a VBA IF statement? Something like

If IsFormula("B33") = True Then
   code to do THIS
Else
   Code to do THAT
End If

Thanks,
Steve K.

 

[EssKayKay]

Maybe add this line:

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

Just a note: I was receiving the same error. This did help in my situation.
Thanks Biff