Zoom Into Specified Cells When Selected

    hi there
    i am trying to use this code, but it does not work

    I would like to enlarge the cell if possible, otherwise the sheet if the condition is thru


    Code
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not ActiveSheet.Intersect(Range(Target, Union(Range("B11"), Range("B13")))) Is Nothing Then ActiveWindow.Zoom = 120


End Sub


    Thankx

    ******************
    [SIZE=6]Yours
    h [/SIZE]
    Your Help Is Highly Appreciated

    Re: Enlarge Cell In Sheet


    Activesheet does not have an Intersect method.


    [vba]
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target, Union(Range("B11"), Range("B13"))) Is Nothing Then ActiveWindow.Zoom = 120

    End Sub
    [/vba]

Participate now!

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

Register Yourself Login