Excel: Limitar elnúmero de caracteres en un celda

[3pies]

Si sabes algo de macros, copia este en la hoja en cuestión (no en un módulo):

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, ActiveCell) Is Nothing Then
    ActiveCell = Left(ActiveCell, 15)
End If
End Sub

Saludos