Try this in a standard module:
Sub find_formula()
Dim sh As Worksheet, cel As Range
For Each sh In Sheets
For Each cel In sh.UsedRange
If cel.HasFormula Then
MsgBox cel.Address
End If
Next cel
Next sh
End Sub
--
Regards,
The Code Cage Team
www.thecodecage.com/forumz


"lostinexcel" wrote:



"lostinexcel" wrote:

I need to search all worksheets to see if any cell has a formula in it? Any
help is appreciated. I also need to take the information found, place it in a new worksheet, name the worksheet in column A, put the formula in column B, and the formula result in column C.