I have the following

Sub Admin()
Dim Pass

Pass = InputBox("Please Enter Password to Log in as Admin")

If Pass = "1234" Then
Application.Run Macro:="showme"
Application.Run Macro:="Sheets_Show"
' Application.Run Macro:="Unprotect"
Else
MsgBox "Sorry Wrong Password"
Worksheets("Till").Select
Range("B10").Select
End If
End Sub

i know im prob pushing it a little, but is there a way to blank put
what i type so others cant see the password.

Thanks you


---
Message posted from http://www.ExcelForum.com/