Am using the code below to stop general admin staff from accessing a
sheet with data,

but would like the password to be shown only as ******* is there VB
code for this????

Any help please

Sub Password()
          Dim PassStr As String
          PassStr = InputBox("Enter Password to Continue", "My
Password Prompt")

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

End Sub

Steve