Can I use an IsFormula function in a VBA routine?

[EssKayKay]

Hello,

I recently responded to an old 2002 post regarding creating an isFormula function for Excel 2007.
How to test if a specified cell contains a formula? (see Response #33).

The function (which works great) is:

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

My question : 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.

 

[Snakehips]

@EssKayKay
Yes, like below.

If Application.WorksheetFunction.IsFormula(Range("I24")) Then
    MsgBox "Yes there is a formula in range " & Range("I24").Address
Else
    MsgBox "No there is not!"
End If

But why would you not avoid calling the function and use the direct via query, below?

If Range("I24").HasFormula Then
    MsgBox "Yes there is a formula in range " & Range("I24").Address
Else
    MsgBox "No there is not!"
End If

Hope that helps.

 

[Fluff]

@Snakehips the Isformula function only came out in 2013, so the OP doesn't have it.

 

[EssKayKay]

@EssKayKay
Yes, like below.

If Application.WorksheetFunction.IsFormula(Range("I24")) Then
    MsgBox "Yes there is a formula in range " & Range("I24").Address
Else
    MsgBox "No there is not!"
End If

But why would you not avoid calling the function and use the direct via query, below?

If Range("I24").HasFormula Then
    MsgBox "Yes there is a formula in range " & Range("I24").Address
Else
    MsgBox "No there is not!"
End If

Hope that helps.

Thank you Snakehips for your quick response. I tried your first suggestion. However it returned:
Run-time error ‘438’ Object doesn’t support this property or method.

So I tried your second HasFormula suggestion – it worked perfectly. I have a few things to address yet but we’re going in the right direction.

Again thanks and much appreciated.
Steve

 

[Snakehips]

As @Fluff pointed out I completely overlooked the fact that first suggestion was calling the ISFORMULA function native to 365 rather than your IsFormula function.
Apologies for that but pleased that the second approach is working for you..