Sub Sunselect()
Dim PassStr As String
PassStr = InputBox("Enter Password Please", "My Password
Prompt")


If PassStr = "Manager" Then
Sheets("Sun").Select
Range("A11").Select
Else
MsgBox "Wrong Password Entered"
End If

End Sub



Am currently using this to ask for a password before allowing people to
view the sheet, but would prefer to use a usrform, i know how to creat
and asign the form, but am not sure of the exact text as fairly new to
userforms,


Prefer to have password char as ******** when typed and have been told
this is not possible with input box.


Any help