Reply to thread

Message: [QUOTE="ryguy7272, post: 6322677"] Code is not working; must be due to the If...Then. I'm tired now and can't see the error in the logic. Can someone point out the mistake? Private Sub CommandButton1_Click() Dim i_pwd As String Dim pwd As String '#1 If pwd = "showandy" Then i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...") Select Case i_pwd Case pwd Worksheets("Andy").Visible = True Sheets("Andy").Select Case Else MsgBox "Incorrect password; no action taken.", vbInformation, "Unhide Sheet..." End Select End If Exit Sub '#2 If pwd = "showchris" Then i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...") Select Case i_pwd Case pwd Worksheets("Chris").Visible = True Sheets("Chris").Select Case Else MsgBox "Incorrect password; no action taken.", vbInformation, "Unhide Sheet..." End Select End If Exit Sub '#3 If pwd = "showdavid" Then i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...") Select Case i_pwd Case pwd Worksheets("David").Visible = True Sheets("David").Select Case Else MsgBox "Incorrect password; no action taken.", vbInformation, "Unhide Sheet..." End Select End If Exit Sub End Sub Regards, Ryan--- [/QUOTE]