zooming the screen on activation of a data validation list box.

    i am trying to zoom the screen to make the items listed in a data validation list visable. as for size is too small to be viewed properly.


    is there away of zooming if i click on the cell with the validation list in so i can select the item i want then the zoom deactivates on my selection of that item ?




    hopefully i have explained that correctly, and anyhelp will be gratefully received.

    Put the following code in the sheet module of the szheet with the validations. [wsc] * [/wsc]
    [vba]Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    On Error GoTo UnZoom
    If ActiveCell.Validation.Type = xlValidateList Then ActiveWindow.Zoom = 200
    On Error GoTo 0
    Exit Sub
    UnZoom:
    On Error GoTo 0
    ActiveWindow.Zoom = 100
    End Sub
    [/vba]

    Thanks alot derk.



    that has zoomed up nicely for me thankyou.




    :thanx:


    now i just need to adjust it so that it zoom only on that cell and reverts back to the zoom that was current in the sheet at the time and not the zoom set in vba and i am done .



    thank you again has helped me out alot.

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login