Hi,
I am using the following code to zoom cells which have drop down menu, as the font is too small and can not be seen.
Initially it is working fine, but all of a sudden it has stopped working.
I also have many change events in one sheet as well
Any help with this or a better code which is applied to all cells in all sheets having drop down menu and can be stored in Thisworkbook or like.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lZoom As Long Dim lZoomDV As Long Dim lDVType As Long lZoom = 90 lZoomDV = 100 lDVType = 0 Application.EnableEvents = False On Error Resume Next lDVType = Target.Validation.Type On Error GoTo errHandler If lDVType <> 3 Then With ActiveWindow If .Zoom <> lZoom Then .Zoom = lZoom End If End With Else With ActiveWindow If .Zoom <> lZoomDV Then .Zoom = lZoomDV End If End With End If exitHandler: Application.EnableEvents = True Exit Sub errHandler: GoTo exitHandler End Sub
Bookmarks