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