Macro - Mensagem de Erro 

Option Explicit

Sub Mensagem_de_Erro()

    Dim i As Double,

    On Error GoTo ErrorHandler

    i = 1 / 0

    Exit Sub

ErrorHandler:

    ' Código para tratar erros e tentar uma recuperação

    MsgBox "Erro: " & Err.Description

    Resume Next ' Ou outra ação apropriada

End Sub