From: Paul on

You can use a worksheet_change event to see if a certain cell or range
of cells changed.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim ce As Range
If Not Intersect(Target, Range("A10")) Is Nothing Then
For Each ce In Target.Cells
ce.Value = Left(ce.Value, 11)
Next ce
End If
End Sub


If you try to paste data (from one or more cells) into a range that
touches A10, all cells being pasted will be truncated to 11 characters.
This code could be amended to only act upon cell A10, of course, and
could be changed to look at any other cell/range.


- Paul
Paul's Profile: 1697
View this thread: