XL2002 - SelectionChange Question...

[Trevor Williams]

I need to trigger an 'autofit' event when the cursor 'exits' a cell, not
'enters' a cell. Here's the code I have so far

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D8")) Is Nothing Then
Range("D8").EntireRow.AutoFit
End If
End Sub

So, basically, when a user enters text into, and then moves away from range
D8 the autofit line is executed. Currently it executes when the cusrsor
enters D8.

Any help apreciated.

Trevor Williams

 

[Don Guillett]

Try just deleting the selection
Private Sub Worksheet_SelectionChange(ByVal Target As Range
to
Private Sub Worksheet_Change(ByVal Target As Range

 

[Trevor Williams]

Hmmm, that's slightly embarrassing! LOL.
Thanks Don, it's a big help.