I am trying to stop the navigation and password request of a comman
button happening when the specified criteria are meet ==I
Sheets("NMLists").Range("r5") = "NM 4" Then== . However if th
criteria are not meet then i need the password and navigation functio
to continue.

Help as always greatly appreciated.

Kristan

Private Sub CommandButton4_Click()
If Sheets("NMLists").Range("r5") = "NM 4" Then
Worksheets("navigation").Select
Else
End If
Set Password = Sheets("NMLists").Range("z5")
If InputBox("Please Enter the Password" _
, "Enter Password") _
< Password Then
Sheets("Navigation").Select
Else
CommandButton4.Caption = Sheets("NMLists").Range("r5")
Worksheets("NM 4").Select
Me.Visible = True
End If
End Su

--
Kstalke
-----------------------------------------------------------------------
Kstalker's Profile: http://www.excelforum.com/member.php...fo&userid=2469
View this thread: http://www.excelforum.com/showthread.php?threadid=38663