You created a Select...End Select construct, but did not include the terminating End Select statement. The following demonstrates the correct usage of the Select...End Select construct.
Select Case testexpression [Case expressionlist-n [statements-n]] . . . [Case Else expressionlist-n [elsestatements-n]] End Select
To correct this error
Make sure the SelectEnd Select construct includes all the necessary parts.