Sub sth()
Dim cell As Range

For Each cell In Selection
If cell.HasFormula Then
cell.Select
MsgBox "Formula found!"
End If
Next cell

End Sub


On 14 Sty, 11:55, FARAZ QURESHI
wrote:
Could an expert devise a macro for me which upon running would:

1. Check row by row every cell to find if it contains a formula;
2. Indicate in a dialogue box "Formula Found!" if a formula found;
3. Jump to such a cell.

Thanx in advance!
--

Best Regards,
FARAZ A. QURESHI