CONTROLE DE ERROS

22. Verificar todas as abas para encontrar 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 informado ao usuário por meio de mensagem,
informando a Aba e a Célula onde o erro se encontra.

Sub VerificarErros()
Dim ws As Worksheet
Dim ra As Range
For Each ws In Worksheets
For Each ra In ws.UsedRange
ra.Select
On Error Resume Next
If IsError(ra.Value) Then
MsgBox "Aba: " & ra.Parent.Name & Chr(13) & "Célula: " &
ra.Address
End If
Next
Next
End Sub

23. Verificar uma seleção para encontrar erros

Esta macro tem a mesma mecânica da anterior, porém ao invés de verificar
todas as abas para encontrar erros, a verificação é feita nas células
selecionadas pelo usuário.

Sub VerificarErros()
Dim ra As Range
For Each ra In Selection
ra.Select
If IsError(ra.Value) Then