You can do that with event code. Right click the tab on the worksheet you
want this functionality for and then copy/paste this code into the code
window that appeared...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D:F")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Union(Target.EntireColumn, Target.EntireRow).Select
Application.EnableEvents = True
End Sub
You didn't say for what range of cells you want this functionality, so I set
it up for columns D, E and F as an example... just change the range to suit
your needs. If, on the other hand, you want this functionality for the
entire sheet and not just a range of cells on that sheet, use this code
instead...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Union(Target.EntireColumn, Target.EntireRow).Select
Application.EnableEvents = True
End Sub