Hi Masters
I have an input box for password
When i am entering the pw its showing the character ex "1234"
I want to mask the "1234" to "****"
Here is the macro
Const pWord As String = "1234"


Sub UnHide()
Sheet1.Range("b3").Select
Selection.ClearContents
If InputBox("Please enter password to open DATA BASE!", "SQ Sweater SMV", _
"Enter Password") = pWord Then
Sheet5.Visible = xlSheetVisible
Sheet5.Activate

End If

End Sub
Please help

Bakar