Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Cells.Interior.ColorIndex = 0
'Range("B" & ActiveCell.Row & ":N" & ActiveCell.Row).Interior.ColorIndex = 3
With Cells.Interior
.Pattern = xlSolid
End With
With Range("B" & ActiveCell.Row & ":N" & ActiveCell.Row)
.Interior.Pattern = xlGray8
End With
End Sub