SOLVED: VBA function Why returning type mismatch error?

[Brian]

SOLVED: Tom, Thanks very much for the quick reply.

===============================
How do I write a function that will return "true" if a cell contains a formula?

Given
A1 = 3+4
then desire isformula(A1) = True

Function IsFormula(cell As Range) As Boolean
Dim Temp As String
Temp = ActiveSheet.cell.Select.Formula
If Left(Temp, 1) = "=" Then
IsFormula = True
Else
IsFormula = False
End If
End Function

But I get a type mismatch error that I have not been able to solve.

Also: Can one create a function like row() that automatically evaluates the current cell? (Because I will be using this formula in conditional formating to highlight the formulas.)

Thanks,

Brian

Thanks,

Brian

[ This Message was edited by: Brian on 2002-05-24 18:03 ]

[Tom Schreiner]

Try this:

Public Function Isformula(CheckCell As Range) As Boolean

If CheckCell.HasFormula Then Isformula = True

End Function

Avoid using objects in your code for variables. cells

Tom