Sub/Function without End Sub/Function

The terminating statement is missing from the procedure.