I'm using this in my workbook on sheet 1.
Private Sub Worksheet_SelectionChange
'THIS ZOOMS IN DURING "CLASS" SELECTION, AND ZOOMS OUT AFTER SELECTION
Dim KeyCells As Range
ActiveWindow.Zoom = 65
Set KeyCells = Range("a_class")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
ActiveWindow.Zoom = 90
Else
ActiveWindow.Zoom = 65
End If
End Sub
This cell is linked to a dropdown list. When I open this cell (a_class), the sheet zooms in to 90% to enlarge the dropdown listings. (Excel has no way to enlarge the font of dropdown list) When I move to another cell, the sheet zooms back to 65%. That is all well and good.
The problem is when it zooms in, the sheet moves over about one column. But when it zooms back to 65%, it doesn't move back to the left most margin.
What can I do to move this worksheet back to left most margin, using this macro?