Expert: Chad Welch - 1/23/2007

Question
Good Afternoon Expert

Can you take a look at this.  No matter what I try, the name will not go into the cell.  I get no errors. No VBA debugging and uResponse does = "password" when I do a break to check.  It just doesn't seem to go to CASE IS.

Thanks
Todd

Private Sub CommandButton1_Click()
 
 Dim uResponse As Variant
     uResponse = InputBox("By entering your password you accept your payout" & vbCrLf & "as shown.")
      
   
   Select Case uResponse
   
   
       Case "password", "password1", uResponse
       
       
              
       Case Is = "password"
        'ActiveSheet.Unprotect "PassWordr"
        [$F$39] = "Hector"
       'ActiveSheet.Protect "PassWordr"
        ActiveWorkbook.Save
      
       
        Case Is = "password1"
       'ActiveSheet.Unprotect "PassWordr"
        ActiveSheet.Range("$F$39").Value = "Todd"
       'ActiveSheet.Protect "PassWordr"
        ActiveWorkbook.Save
                   
       Case Else
           MsgBox "Invalid Password"
           
   End Select

     
End Sub

Answer
Todd,
If you remove the following line the procedure should work for you:
Case "password", "password1", uResponse

Some programming languages require that type of a line defining the Cases, but Visual Basic doesn't need it.  In fact it treats it as an actual case, so it checks if uResponse is equal to any of the three items listed.  Since it is equal it performs any statements before the next case.  There are no lines so it jumps directly to the End Select and nothing is done.

Chad Welch
Brainbench MVP for MS Excel
http://www.brainbench.com