Limitation de caractère avec Alerte

Bonjour,
Je cherche à limiter le nombre de caractères à 18 dans la colonne B d'un fichier.
J'ai trouver un code dans une discussion sur votre site mais le souci est que ce code ne permet pas d'afficher de message d'alerte lorsque l'utilisateur dépasse les 18 caractères.
Voilà le code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
On Error Resume Next
For Each c In Target
If Len(c) > 18 Then
c.Value = Left(c.Value, 18)
End If
Next c
End If
End Sub

Est-ce que quelqu'un saurait me dire comment faire pour avoir un message d'alerte qui s'affiche lorsque l'on essaie de dépasser les 18 caractères?
Merci