Maybe...

Private Sub CommandButton1_Click()
Dim i_pwd As String

i_pwd = InputBox("Please Enter Password to Unhide Sheet", "Unhide Sheet...")
if i_pwd = "" then
exit sub
end if

Select Case lcase(i_pwd)
Case is = "showandy"
Worksheets("Andy").Visible = True
Sheets("Andy").Select
Case Else
MsgBox "Incorrect password; no action taken.", vbInformation, _
"Unhide Sheet..."
End Select

Exit Sub

(Untested, uncompiled.)

ryguy7272 wrote:

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---

--
RyGuy

--

Dave Peterson