Try putting this in ThisWorkbook module:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Sh.Cells.Interior.ColorIndex = xlNone
If Target.Cells.Count = 1 Then
With Rows(Target.Row).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
If Target.Cells.Count = 1 Then
With Columns(Target.Column).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
End Sub


"Voodoodan" wrote:


Hi,

Is there any way in which I could click in any cell on a workbook and
the column would highlight up to that cell, and the row would also
highlight up to that cell?

It's something that might make data entry a lot easier when viewing a
couple of documents at the same time!

Dan.


--
Voodoodan
------------------------------------------------------------------------
Voodoodan's Profile: http://www.excelforum.com/member.php...nfo&userid=597
View this thread: http://www.excelforum.com/showthread...hreadid=395322