Hi Kaval,

Try:

dim rCell As Range

If HasFormula.rCell Then ' Formula

If Application.IsNumber(rCell.Value) Then ' Number

If Application.IsText(rCell.Value) Then ' Text

If IsEmpty(rCell.Value) Then ' Empty


---
Regards,
Norman



"Kaval" wrote in message
...
I am looking for the VB equivalent to the cell type function. That is, I
need
to determine if a particular cell contains a formula, a number, text or is
blank.

I guess it has to do with SpecialCells but I cant work it out.

Thanks, Kaval