Error Checking

[sassriverrat]

So I've written this error coding. I was hoping someone could check it over and tell me 1. why userform18 won't show when running and 2. Is there coding I can put in userform 18 that would allow me to "screenshot" a highlighted string of code (the code that error'd) and screenshot (or save as a pdf) the activeworkbook and then reset the code- basically allowing the user to continue attempting to use the workbook.

thanks!

 Sub Hi()

On Error GoTo Helper




*CODING*






'Error helper


Exit Sub
Helper:
	resp = MsgBox("We're sorry you've had this problem. Please save error codes [xxx] [" & Err.Number & "-" & Err.Description & "]. Would you " & _
		"like to fix the problem?", vbyesno, "Error Checker")
		If resp = vbYes Then
			Userform18.Show
		ElseIf resp = vbNo Then
			Exit Sub
		End If
End Sub

 

[sassriverrat]

also-

No reason I can't change each "Sub" to function and have this run within a function, right?

 

[KOKOSEK]

I think that you are thinking about something like.....
Put this into module:

Function OtherDivide(a1 As Integer, b1 As Integer)
    On Error GoTo helper:
    OtherDivide = a1 / b1
    Exit Function
helper:
    OtherDivide = "you can't divide by zero"
    MsgBox ("you can't divide by zero")
End Function

then try in excel

=OtherDivide(5,1)

and

=OtherDivide(5,0)

 

[sassriverrat]

No no

just maknig sure there was no reason that instead of having stuff like "exit sub" I could use "exit function"