Hi Shades,
Going back to your original code, a slight mod with an "On Error GoTo" gives[vba]Sub PassWordTest()
Dim LastName As String, PassWord As String
Sheets("Passwords").Range("H4").Value = InputBox("Enter Last Name")
On Error GoTo Msg
If Sheets("Passwords").Range("H5").Value = Sheets("Passwords").Range("H4").Value Then
Sheets("Passwords").Range("I4").Value = InputBox("Enter Password")
If Sheets("Passwords").Range("I5").Value = Sheets("Passwords").Range("I4").Value Then
Sheets("ShowData").Range("B2").Value = Sheets("Passwords").Range("H4").Value
ActiveWorkbook.Sheets("ShowData").Visible = True
ActiveWorkbook.Sheets("Intro").Visible = False
ActiveWorkbook.Sheets("ShowData").Select
Else: MsgBox ("You have entered wrong Password")
End If
End If
Msg: MsgBox ("Your Name is not listed")
End Sub[/vba]
Which would seem to do the job. But maybe I'm missing something here? :bink:
