Article ID: 108340
Article Last Modified on 7/1/2004
Dim i As Variant
Dim buf As String
Label1.Caption = "Error List Started"
For i = 1 To &H7FFF
If Error$(i) <> "User-defined error" Then
buf = buf & Format$(i, "@@@@ ") & Error$(i) & Chr$(13) & Chr$(10)
End If
Next
ClipBoard.Clear
ClipBoard.SetText buf
Label1.Caption = "Error List Complete"
136250 How To Determine Visual Basic Trappable Errors
Additional query words: 70
Keywords: kbhowto kbref kbdocs KB108340