macro to reduce cell text length

i have a column of data with long texts in each cell. how can i get it so that each cell only has 200 there vba that could do this?
Who is Participating?
NorieVBA ExpertCommented:
You could try something like this if you just want to reduce the no of characters in each cell down to 200.
    With Range("A1:A20") ' adjust as required
        .Value = Evaluate("LEFT(" & .Address & ",200)")
    End With

Open in new window

Fabrice LambertFabrice LambertCommented:
Do you want to prevent users from entering more than 20 characters ?
Or squeeze cell values to 20 characters afterward ? (wich is an effective data loss).
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.