See John Walkenbach's site for undo.

http://www.j-walk.com/ss/excel/tips/tip23.htm


Gord Dibben MS Excel MVP

On Thu, 19 Jul 2007 18:54:00 -0700, Ross wrote:

Hi everyone.

I am using code from a previous post by Mike H. that automatically fits the
cell as you tab or enter out of it. I am wondering if anyone knows how to
write it so that the 'Undo' button will still be available after leaving the
cell. Sometimes I decide that the previous cell amount was the correct one
after all, but can't use 'Undo' to fix it.

The code from Mike H is:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:IV65536")) Is Nothing Then
Target.EntireColumn.AutoFit
End If
End Sub

Please and Thank You!