Ken,

In VBA, a range has a HasFormula property which can be checked

Function IsFormula(rng As Range)
If rng.Count > 1 Then
IsFormula = CVErr(xlErrRef)
Else
IsFormula = rng.HasFormula
End If
End Function

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Ken Johnson" <KenCJohnson@gmail.com> wrote in message
news:1141202465.923782.68160@i40g2000cwc.googlegroups.com...
> Hi Brisbane Bob,
> Seems like a trivial request given that you only have to look in the
> cell to see if it is a value or a formula, however you might have a
> valid reason that I have overlooked. The following UDF seems to work.
> It just tests for the leading "=" that every formula must have. It
> returns FALSE if no leading "=" and TRUE if the cell being tested (A1
> in your case) does have a leading "="....
>
> Public Function IsFormula(rngCell As Range) As Boolean
> If Left(rngCell.Formula, 1) <> "=" Then
> Let IsFormula = False
> Else: Let IsFormula = True
> End If
> End Function
>
> Just copy and paste into a standard module in the VBA Editor or into
> your PERSONAL.XLS macro book, then access as you would any other
> worksheet function.
>
> Ken Johnson
>