Using VBA's IsError Function

' Using VBA's IsError Function
For Each c1 In ActiveSheet.UsedRange

If IsError(c1) Then
' Coded By Shasur

MsgBox "Error in " & c1.Address

End If
Next

End Sub