Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static cc
If cc <> "" Then
With Columns(cc).Interior
.ColorIndex = xlNone
End With
End If
c = Selection.Column
cc = c
With Columns(c).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub