An End procedure statement must match the procedure in which it occurs. This error has the following cause and solution:
Use End Function for this type of procedure.
For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).