Dropdown list width

[NSegna]

Hello,
I was wonder if there is a way to increase the width of a dropdown list.
I know that the width of the list is usually the same as the width of the column it is inbut I was wondering if it was possible to make it bigger all of the options are cut off.
I've tried to use this code but it does not seem to be working.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
Target.Columns.ColumnWidth = 30
Else
Columns(2).ColumnWidth = 5
End If
End Sub


Thanks

 

[DanteAmor]

Put the 2 following events

Private Sub [COLOR=#008000]Worksheet_Change[/COLOR](ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 2 Then
        Target.Columns.EntireColumn.AutoFit
    End If
End Sub


Private Sub [COLOR=#008000]Worksheet_SelectionChange[/COLOR](ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 2 Then
        Target.Columns.EntireColumn.AutoFit
    End If
End Sub

 

[Twollaston]

Was it pasted to a normal Module? Because it's a worksheet event, meaning you have to place the code inside the sheet (Right click sheet name, click view code, paste code in white blank space)