Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Columns("I:L").ColumnWidth = 3
If Not Intersect(Range("I:L"), Target) Is Nothing And Target.Count = 1 Then
Columns(Target.Column).ColumnWidth = 15
End If
End Sub