Увеличение при выборе стрелки из раскрывающегося списка

Question

Мне удалось найти некоторый код, который увеличивается при выборе ячейки, содержащей раскрывающийся список, а затем уменьшается при выборе ячейки без раскрывающегося списка. Мне было интересно, есть ли простой способ увеличить масштаб, когда выбрана стрелка для отображения списка, а затем уменьшить масштаб, когда выбрано значение в раскрывающемся списке. После некоторых исследований я не смог найти, каково соответствующее целевое значение для стрелки. Код, который я сейчас использую, следующий:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng As Range
    Dim bZoom As Boolean
    Const IncreasedZoomPercentage = "150"                 '<<=== Change to suit
    Const NormalZoomPercentage As Long = "70"      '<<=== Change to suit

    If Target.Cells.Count > 1 Then
        GoTo XIT
    End If

    On Error Resume Next
    Application.EnableEvents = False
    Set Rng = Me.UsedRange.SpecialCells(xlCellTypeAllValidation)
    Application.EnableEvents = True
    On Error GoTo 0

    If Not Rng Is Nothing Then
        If Not Intersect(Target, Rng) Is Nothing Then
            If Target.Validation.Type = xlValidateList Then
                bZoom = True

            End If
        End If
    End If

XIT:
    With ActiveWindow
        If bZoom Then
            .Zoom = IncreasedZoomPercentage
             Target.EntireColumn.AutoFit
        Else
            .Zoom = NormalZoomPercentage
        End If
    End With
End Sub