I got the the following code from contextures.com, but it's not satisfying. Is there a way to change it so that it will work on a given range of cells with dropdown list so that any cell in the range, say "A1:Z1" will temporarily widen when selected?

Here's the code they gave:

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

---
Thanks