Change dropdownlist width temporarily

Hi everyone

I want to make the Dropdown List temporarily wider but not the column width

I have tried with this code but it change column width temporarily too

 If Target.Address = "$A$2" Then
    ActiveWindow.Zoom = 120
  Else
    ActiveWindow.Zoom = 100
  End If

I attached a sample workbook with dropdown list. Hope someone could help me, thanks.

Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

Re: "but not the column width"
Why not?
Otherwise, from what I understand, you'll be out of luck.

From:
https://www.contextures.com/xlDataVal08.html#wider

Make the Dropdown List Temporarily Wider
The Data Validation dropdown is the width of the cell that it's in, to a minimum of about 3/4".
You could use a SelectionChange event to temporarily widen the column when it's active, then make it narrower when you select a cell in another column.
For example, with Data Validation cells in column A:

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