Excel: Limitar elnúmero de caracteres en un celda

[Monimo]

A ver este debe funcionar perfecto

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
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