Data Validation - Temporarily Make dropdown list wider

[Alison]

http://www.contextures.on.ca/xlDataVal08.html#Wider

Hi I have used the above link and copied the code. It works correctly in the
first column (Column E). How do I modify the code to get this apply to all
columns (Columns E to AB)?
Thank you
Alison

 

[Dave Peterson]

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

'reset everything
Me.Range("E:AB").EntireColumn.ColumnWidth = 5

If Intersect(Target, Me.Range("E:AB")) Is Nothing Then
'do nothing more
Else
'do the single column
Target.EntireColumn.ColumnWidth = 20
End If
End Sub