Change the Size of the Drop down list width with VBA

[stathis1234]

I have an excel sheet that 6 columns have data validation, (drop down list), i want the width of the drop down list to expand when is selected
the following VBa code worked for me but is only for one column is there any way to do it for 6 columns
the VBA code is the following
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column = 1 Then

Target.Columns.ColumnWidth = 30

Else

Columns(1).ColumnWidth = 5

End If

End Sub

 

[Fluff]

Which columns do you want it to work on?

 

[stathis1234]

6 Columns in a row from G to L

 

[Peter_SSs]

See how this goes.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
  Columns("G:L").ColumnWidth = 5
  If Not Intersect(ActiveCell, Columns("G:L")) Is Nothing Then ActiveCell.ColumnWidth = 30
  Application.ScreenUpdating = True
End Sub

 

[stathis1234]

My Dear friend you are amazing is working fine, you saved me
Thank you anything you want at your disposal

 

[Peter_SSs]

Glad it helped. Thanks for the confirmation.