like our Facebook Page

class=""> class="">class="">class="">

VBA Code for Dropdown List Font Size Increase in MS Excedl

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'updateby Extendoffice 20170620 On Error GoTo LZoom Dim xZoom As Long xZoom = 100 If Target.Validation.Type = xlValidateList Then xZoom = 200 LZoom: ActiveWindow.Zoom = xZoom End Sub
Previous
Next Post »