Event code OK?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim v As Variant, i As Integer
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target) Then
MsgBox "all numbers not allowed"
Else
On Error GoTo CleanUp
Application.EnableEvents = False
v = Target(1, 1).Value
Application.EnableEvents = False
For i = 1 To Len(v)
Target(1, 1).Characters(Start:=i, _
Length:=1).Text = "*"
Next i
End If
CleanUp:
Application.EnableEvents = True
End Sub
Note: the text will be seen while entering but change to ***** when enter
key is hit.
To have text appear as ****** while typing is beyond my skills.
I don't think you can do that in a cell.
Gord Dibben MS Excel MVP