20 minutes trying...

[Jim May]

With the following in a standard module:

Function IsFormula(cell As Range) As Boolean
IsFormula = cell.HasFormula
End Function

In cell A4 of sheet1 there is a formula = Sum(A1:A3)
In cell B4 I have =IsFormula(A4) -->> Displaying #Value?

I've search google, etc..
CRAP!!

 

[Bob Phillips]

Works fine for me Jim.

Does the range A1:A3 have anything odd i it?
Does A4 sum to the correct value?

 

[Guest]

It works fine for me. Just to confirm the code is in a regular module "Module
1" (or the like) and not in the sheet or in "ThisWorkbook".

 

[Gary Keramidas]

this works for me

Private Function IsFormula(cell As Range) As Integer
If cell.HasFormula Then
IsFormula = 1
Else
IsFormula = 0
End If
End Function

 

[Dave Peterson]

Were you playing with named ranges beforehand? Did you create one named
IsFormula?

Any chance your module name is IsFormula (as well as the function name)?

 

[Jim May]

A1:A3 contains 123, 234, 345 respectfully
A4 displays 702 ( = Sum(A1:A3))
B4 = = Isformula(A4) -- Displaying #Name?

Did I indicate #VALUE? before.. CRAP yes
I should have indicated #Name? this is what's
being displayed..
Sorry,

 

[wilscott1st]

try:
Function IsFormula(cell As Range) As Boolean
If Cell.HasFormula Then
IsFormula = True
Else
Is Formula = False
End If
End Function

 

[Tom Ogilvy]

As Jim said, put it in a general module, not the sheet module.

 

[Jim May]

OK, everything before now was based on my having the Isformula() in my
Personal.xls file. << where it wasn't working!!

I just copied the complete function into a std module of the subject
workbook, And it Worked !!

What's the difference? Does this prompt a reaction?
TIA,,,
Jim

 

[Dave Peterson]

=personal.xls!isformula(a4)

OK, everything before now was based on my having the Isformula() in my
Personal.xls file. << where it wasn't working!!

I just copied the complete function into a std module of the subject
workbook, And it Worked !!

What's the difference? Does this prompt a reaction?
TIA,,,
Jim

 

[Jim May]

HooRay!!!
Is this always the rule (prefacing with =personal.xls!)?
Tks Dave,
Jim

 

[Myrna Larson]

No, it's not always the rule. If you go to the VB Editor, select your
workbook, then go to Tools/References and put a check mark in front of
Personal.xls, then you don't have to precede the function name with
personal.xls!

HooRay!!!
Is this always the rule (prefacing with =personal.xls!)?
Tks Dave,
Jim

 

[Jim May]

Thanks Myrna, I was thinking that I'd seen or done this without the preface
"=personal.xls".
Jim

No, it's not always the rule. If you go to the VB Editor, select your
workbook, then go to Tools/References and put a check mark in front of
Personal.xls, then you don't have to precede the function name with
personal.xls!

 

[Jim May]

Never mind, I figured it out;
Needed to change Name from "VBA Project" to "Personal"
under properties.

 

[Tom Ogilvy]

Or make personal.xls an addin.