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.
Sub Statement | Call Statement | Dim Statement | Exit Statement | Function Statement