Excel VBA Check if Cell has particular Formula (VBA)

Hello,

I'm trying to check if cells have a particular function (subtotal).    I was thinking about basing it on

Function IsFormula(cell_ref As Range)
    IsFormula = cell_ref.HasFormula
End Function
from Mr. Excel but I can't seem to make it work.

Thanks,
LVL 1
mattfmillerAsked:
Who is Participating?
 
NorieVBA ExpertCommented:
Perhaps.
Function IsSubTotalFormula(cell_ref As Range) As Boolean
    If cell_ref.HasFormula Then
        IsSubTotalFormula = InStr(cell_ref.Formula, "SUBTOTAL") > 0
    End If
End Function

Open in new window

0
 
mattfmillerAuthor Commented:
Thank you very much.  It was killing me.
0
 
Michael FowlerSolutions ConsultantCommented:
This will do the trick

Function IsSubTotal(cell_ref As Range)
    If InStr(cell_ref.Formula, "SUBTOTAL") = 0 Then
        IsSubTotal = False
    Else
        IsSubTotal = True
    End If
End Function

Open in new window

0
 
Michael FowlerSolutions ConsultantCommented:
way too slow, closed before I posted
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.