6/27/2014 8:40:24 PM

The following VBA Scipt will highlight the current selected row in Excel. This is helpful when you are reading data horizontally and you want to make sure you are reading the correct columns all the way across. The commented section will allow you to only highlight certain columns.

To set the script, hit ALT-F11, select your current workbook and worksheet on the left, double-click the worksheet, plaste code and hit save.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Static xRow
Static xColumn

'If only highlight column 1 & 2, unhighlight column1 & 2
'Columns(1).Interior.ColorIndex = xlNone
'Columns(2).Interior.ColorIndex = xlNone

'Unhighlight columns and rows
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If

pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn

'uncomment to also highlight the column
'With Columns(pColumn).Interior
'.ColorIndex = 6
'.Pattern = xlSolid
'End With

'MsgBox pRow

'highlight column 1 & 2
'Range("A" & pRow).Interior.ColorIndex = 6
'Range("A" & pRow).Interior.Pattern = xlSolid
'Range("B" & pRow).Interior.ColorIndex = 6
'Range("B" & pRow).Interior.Pattern = xlSolid

With Rows(pRow).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Sub