Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xRiga = Selection.Row
xColonna = Selection.Column

If xColonna = 3 And xRiga < 32 Then
    Range("C1").ColumnWidth = 30
Else
    Range("C1").ColumnWidth = 8
End If

If xColonna = 6 And xRiga < 32 Then
    Range("F1").ColumnWidth = 45
Else
    Range("F1").ColumnWidth = 8
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
For Each Value In Target.Columns
    Worksheets(Sh.Name).Columns(Value.Column).AutoFit
Next Value
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.ColumnWidth = 8.43
    If ActiveCell.ColumnWidth = 8.43 Then ActiveCell.ColumnWidth = 32
Exit Sub