if Workbook.Sheets[1].UsedRange.HasFormula then begin //do something end;
if Workbook.Sheets[1].Cells[6,1].HasFormula then begin //do something end;