MsgBox "Aba: " & ra.Parent.Name & Chr(13) & "Célula: " & ra.Address
End If
Next
End Sub

24. Verificar todas as abas para contabilizar erros

Esta macro tem por objetivo rodar todas as abas disponíveis de um arquivo,
procurando por erros comuns de formula como #N/D, #REF!, #DIV/0! e etc.
O erro será localizado e contabilizado para informar ao usuário a quantidade.

Sub VerificarErros()
Dim ws As Worksheet
Dim ra As Range
Dim Contador As Long
Contador = 0
For Each ws In Worksheets
For Each ra In ws.UsedRange
If IsError(ra.Value) Then
Contador = Contador + 1
End If
Next
Next
MsgBox (Contador & " Erros encontrados")
End Sub