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.