Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Change the range color in selection change event

Sub Worksheet_SelectionChange(ByVal Target As Range)              Rows.Interior.ColorIndex = xlColorIndexNone              Target.EntireColumn.Interior.ColorIndex = 36              Target.EntireRow.Interior.ColorIndex = 36          End Sub