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
    1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    2. If Not ActiveSheet.Intersect(Range(Target, Union(Range("B11"), Range("B13")))) Is Nothing Then ActiveWindow.Zoom = 120
    3. 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]