right click on your sheet tab and paste this into the code module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TheRange As Range

Set TheRange = Union(Target.EntireColumn, Target.EntireRow, Target)

Application.EnableEvents = False
TheRange.Select
Target.Activate
Application.EnableEvents = True

End Sub


"rjamison" wrote:

I have a very large table and I am hoping to find a way to highligh the
current row and coloum somehow to allow a crosshair like look that follows
the active cell. The table is a look up table and following the lines can
be
a pain even with grided shading