Hi,

Right click your sheet tab, view code and paste the code below in. Note the
commented out line. You can use autofit or fixed widths with this line.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
'Target.ColumnWidth = 8.5
Columns(2).EntireColumn.AutoFit
Else
Columns(2).ColumnWidth = 2#
End If
End Sub


Mike
"Neil Holden" wrote:

Hi, i have a column with is very narrow, about the length of a charactor, if
the user selects column B for example a list choice appears, but the list
isn't wide enough to see each option, is they anyway you can automatically
open the list to the correct size and once selected go back to its original
size?

Thanks.