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.