Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim Derlig As String
Application.ScreenUpdating = False
Columns("F").ColumnWidth = 11.67
Derlig = Range("F" & Rows.Count).End(xlUp).Row
If Not Intersect(Range("F10:F" & Derlig), target) Is Nothing And target.Count = 1 Then
Columns(target.Column).ColumnWidth = 50
End If
End Sub