Expected 'Sub'
You created a Sub procedure, but terminated it with the End keyword instead of the End Sub statement. A Sub procedure must include a terminating End Sub statement.
To correct this error
- Terminate your Sub procedure with the End Sub statement.