Untitled
plain_text
24 days ago
655 B
2
Indexable
Never
Private initialZoom As Integer Private Function IsMergedCell(ByVal rng As Range) As Boolean IsMergedCell = rng.MergeCells End Function Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo GaExcel Dim xZoom As Integer xZoom = 60 If Target.Validation.Type = xlValidateList Then xZoom = 150 ElseIf IsMergedCell(Target) Then xZoom = 150 End If GaExcel: If initialZoom = 0 Then initialZoom = ActiveWindow.Zoom End If If xZoom = 150 Then ActiveWindow.Zoom = xZoom Else ActiveWindow.Zoom = initialZoom End If End Sub