Macro - Mensagem de Erro 

Option Explicit

Sub Mensagem_de_Erro()

    Dim i As Double,

    On Error GoTo ErrorHandler

    i = 1 / 0