Hi

If a cell A1 contains the formula (for example, =SUM(K2:K1000) ),
Select a cell B1, from the formula menu, choose [Define Name].

In the Name box, type a name HASFORMULA and In the Refers To box,
type a formula =EVALUATE(GET.CELL(48,!A1)), and choose
the [Add] button and then [Close] button.

In a cell B1, enter the formula:

=HASFORMULA

--
Regards,

Soo Cheon Jheong
Seoul, Korea
http://excel.hompy.com
_ _
^¢¯^
--

Better to create a UDF than rely on EVALUATE, as there is a serious problem
with EVALUATE.

The UDF would look like

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


--
HTH

-------

Bob Phillips
"Soo Cheon Jheong" wrote in message
...
Hi

If a cell A1 contains the formula (for example, =SUM(K2:K1000) ),
Select a cell B1, from the formula menu, choose [Define Name].

In the Name box, type a name HASFORMULA and In the Refers To box,
type a formula =EVALUATE(GET.CELL(48,!A1)), and choose
the [Add] button and then [Close] button.

In a cell B1, enter the formula:

=HASFORMULA

--
Regards,

Soo Cheon Jheong
Seoul, Korea
http://excel.hompy.com
_ _
^¢¯^
--