Try something like

Dim ErrCells As Range
Dim Rng As Range
On Error Resume Next
Set ErrCells = ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeFormulas, xlErrors)
On Error GoTo 0
If Not ErrCells Is Nothing Then
For Each Rng In ErrCells
Rng.Select
Beep
MsgBox "Error in cell: " & Rng.Address
Next Rng
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"cawemann" wrote in
message ...

i must write a macro that checks errors in formulas and returns
a
message box saying which cell the error occured on. also it
must beep
when the message box opens up. i really need help.:(


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from
http://www.ExcelForum.com/