Check your other post.

K1KKKA wrote:

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

--

Dave Peterson