Drop List Program not working.

I've recently come across a few threads that tell you how to increase the zoom of a drop box by copy and pasting a given formula and then changing the cell range. Well I've tried a few of the formulas and they don't appear to work on my spreadsheet.
Ex. https://www.mrexcel.com/forum/excel-...drop-down.html

Formula:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 If Target.Address = "$A$2" Then 
 ActiveWindow.Zoom = 120 
 Else 
 ActiveWindow.Zoom = 100 
 End If 
 End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

when I paste it and then save it in the view code section and then test it out on the spreadsheet wherever I click zooms. I'm unsure of why it does that. Also how do you add a blank option to a drop list?

The code you posted works for me. I suggest you attach your file.

As for a blank option, how are you assigning the values to your dropdown list now? Are you typing a list into the formula box, using an absolute range, or using a named range?