Copy the code below, right click the sheet tab, select "View Code" and paste
the code into the window that appears. This will work when you are arrowing
around the sheet, or using your mouse. It won't work if you hit enter to
change the activecell.
HTH,
Bernie
MS Excel MVP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Union(Target.EntireColumn, Target.EntireRow).Select
Target.Activate
Application.EnableEvents = True
End Sub