Excel: Limitar elnúmero de caracteres en un celda

[Monimo]

Utiliza este, aquí ya cambié que sea justo cuando escribes y no cuando pasas de nuevo sobre la celda modificada.

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
On error resume next
TR = Target.Row - 1

Select Case Target.Column

Case Is = 3 'columna
Cells(TR, 3).Value = Left(Cells(TR, 3).Value, 7) ' numero de caracteres que quiera que acepte)

Case Is = 4
Cells(TR, 4).Value = Left(Cells(TR, 4).Value, 7)

Case Is = 5
Cells(TR, 5).Value = Left(Cells(TR, 5).Value, 4)

Case Is = 6
Cells(TR, 6).Value = Left(Cells(TR, 6).Value, 7)

Case Is = 7 ''''''''''''''''''''''''''''''''''''''''''''''''' hago referencia acá para mensionar que tambien probe con numero Case Is = 1
Cells(TR, 7).Value = Left(Cells(TR, 7).Value, 7)

Case Is = 8
Cells(TR, 8).Value = Left(Cells(TR, 8).Value, 7)

End Select
End Sub

Prueba con este y nos comentas...Aquí seguiré hasta que quede :)