Si es siempre una sola celda , puedes dejar eso estipulado en la macro...
por ejemplo esto se aplicaría solo si fuera la celda E4
Código:
If Target.Column = 5 Then
If Target.Row = 4 Then
Target.Value = Left(Target.Value, 15)
end if
End If
El código de 3pies aplica para la celda que sea, donde quiera que escribas en esa hoja te limitará solo a 15 caracteres:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Left(Target.Value, 15)
End Sub