怎么使EXCEL里数据有效性列表显示得更大些？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim lZoom As Long
    Dim lZoomDV As Long
    Dim lDVType As Long
    lZoom = 100
    lZoomDV = 120
    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 SuberrHandler:    GoTo exitHandlerEnd Sub