Expand out a dropdown list?

Hello,

I modified the code to be cell-specific vice column-specific, but it doesn't do anything to the selected cell. (The validation list width doesn't change.)

Any help appreciated. Thanks! VR/Lost

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
   If Target.Address = "$D$2" Then
       Target.Columns.ColumnWidth = 150
   End If
End Sub