Public Sub test()
    On Error Resume Next
    Debug.Print 1 / 0

    Debug.Print Err.Number, Err.Description

    If Err.Number Then
        Err.Raise 5
    End If

    Debug.Print Err.Number, Err.Description

    On Error GoTo 0
End Sub

Sub ErrorInfo()
    With ActiveSheet
        Dim idx As Integer
        On Error Resume Next
        .Cells(1, 1).Value = "Number"
        .Cells(1, 2).Value = "Description"
        .Cells(1, 3).Value = "HelpFile"
        .Cells(1, 4).Value = "HelpContext"
        For idx = 1 To 100
            Err.Raise idx
            .Cells(idx + 1, 1).Value = Err.Number
            .Cells(idx + 1, 2).Value = Err.Description
            .Cells(idx + 1, 3).Value = Err.HelpFile
            .Cells(idx + 1, 4).Value = Err.HelpContext