Expected End Sub

An End procedure statement must match the procedure in which it occurs. This error has the following cause and solution:

• You used End Function or End Property to end a Sub procedure.

  Use End Sub for this type of procedure.

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).