Here is another way that does use conditional formatting. In a VBA module in
your workbook, paste this user-defined function:
Public Function CurrRow() As Long
CurrRow = ActiveCell.Row
End Function
In the ThisWorkbook module of the workbook, paste this event code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Calculate
End Sub
On the worksheet where you want to apply the condition formatting, select
column B, then select Conditional Formatting from the Format menu. Change
'Cell Value Is' to 'Formula Is' and enter the following formula:
=(ROW(B1)=CurrRow())
Then click the Format button to select however you want the column B cells
to be highlighted. Click OK to close the Format dialog, then OK again to
close the Conditional Formatting dialog.
Hope this helps,
Hutch