select case problem

[Mclaren]

i have the code as below, which to me seems fine, but when i run the code, i get a "Else without If" error....what gives ? i am stumped :

Private Sub User_AfterUpdate()

    'check to see if check box is marked
    If Me.User = True Then
    
        'check to see if password exists
        If Me.UserPassword = "" Then
        
        'if no password then ask user if they would like to set password or not ?
        Select Case MsgBox("There is no password set. Continue ?", vbYesNo, "notice...")
            'if yes, set temp passowrd and inform user therof
            Case vbYes
                strMsg = "A temporary password has been set of:" & vbCrLf & _
                    "PASSWORD" & vbCrLf & _
                    " " & vbCrLf & _
                    "This passowrd must be changed at first login"
                MsgBox strMsg
                Me.UserPassword = "PASSWORD"
                Exit Sub
            Case vbNo
                'if no display message and set user to false
                MsgBox "User cannot be set without a passord", vbOKOnly, "Notice"
                Me.User = False
        Else
        End If
    End If

End Sub

[pbaldy]

There's no

End Select

to close off the Select Case statement.

[Mclaren]

Thanks Paul.

Cannot believe i missed that.

[pbaldy]

No problem. We all experience bouts of blindness now and then.