Contar caracteres de una celda con una condición

Utilizar algo como esto en la sección de código de la hoja, creo que ayudaría para obtener lo que quieres

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 1 And Target.Column = 1 Then
    If Len(Target) < 18 Then
      MsgBox "menos de 18 caracteres"
    Else
      MsgBox "18 o más caracteres"
    End If
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
MED = Len(Range("A1"))

If MED >= 18 Then
MsgBox MED & " " & "Largo igual o mayor de 18 caracteres"
Else
MsgBox MED & " " & "Largo menor de 18 caracteres"

End If

End If
End Sub