I have found a "better" way, however it is much trickier:

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Text) 255 Then
SaveSetting ActiveWorkbook.Name, ActiveSheet.Name,
ActiveCell.Address, Target.Text
End If
End Sub


Sub ReadExcess()
MsgBox GetSetting(ActiveWorkbook.Name, ActiveSheet.Name,
ActiveCell.Address)
End Sub

This records all data in excess of 255 chars in the registers. However
this has to be managed or else the registers might grow to enormous
sizes.
Also be careful thaat the current cell will not be the cell where the
data resides, but the cell where the cursor resides after the data has
been entered.

This method will allow the data to be copied into a word editor such as
Notebook.


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=574171