custom error message box

[HCI]

im looking for some code to display a custom message box (form) when the user types anything else other than the letter "x" in columns a:k

can anybody help me with this?

thanks.

[MaximS]

try that:


Private Sub Worksheet_Change(ByVal Target As Range)

Dim Err As String
If Target.Column > 11 Then
Exit Sub
Else
If Target.Value <> "x" Then
Err = MsgBox("Only allowed value is x", vbCritical + vbOKOnly, "Wrong value")
End If
End If
End Sub

[HCI]

thanks! that works perfectly except if the user deletes the x the msg still pops up. is there a way for that not to happen?

[lucas]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Err As String
If Target.Column > 11 Then
Exit Sub
Else
If Target.Value <> "x" And Target.Value <> "" Then
Err = MsgBox("Only allowed value is x", vbCritical + vbOKOnly, "Wrong value")
End If
End If
End Sub