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

Try just deleting the selection
Private Sub Worksheet_SelectionChange(ByVal Target As Range
to
Private Sub Worksheet_Change(ByVal Target As Range
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Trevor Williams" wrote in
message ...
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

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

"Don Guillett" wrote:

Try just deleting the selection
Private Sub Worksheet_SelectionChange(ByVal Target As Range
to
Private Sub Worksheet_Change(ByVal Target As Range
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Trevor Williams" wrote in
message ...
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