You can't change that behavior through an application setting. You could
use the workbook or worksheet selection change event, like this below, but
it won't work when you select an entire column or row, or have other shapes
on your worksheet. Change the 25 to a level that you like - the higher the
number the more likely it is to affect speed. Copy the code, right-click
the sheet tab, select "View Code" and paste the code into the window that
appears. Note that this was not tested in 2007 - but works in 2003 (I don't
have any reason to run 2007 yet....)
Bernie
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myShape As Shape
Dim myCell As Range
Dim myArea As Range
For Each myShape In ActiveSheet.Shapes
myShape.Delete
Next myShape
For Each myArea In Target.Areas
If myArea.Cells.Count < 25 Then
For Each myCell In myArea.Cells
Set myShape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
myCell.Left, myCell.Top, _
myCell.Offset(0, 1).Left - myCell.Left, _
myCell.Offset(1, 0).Top - myCell.Top)
With myShape.Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 11
.Transparency = 0.75
End With
Next myCell
End If
Next myArea
End Sub
